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APPENDIX  D 

COHORT  REPLACEMENT  MODEL  (C-REM)  USER'S  MANUAL 


D-l.  PRETACE.  The  primary  objective  of  C-REM  <s  to  determine  average 
sizes  of  Cohesion,  Operational  Readiness,  and  Training  (COHORT) 
replacement  packages  for  first-term  soldiers  assigned  to  companies/ 
batteries  in  either  the  FORSCOM  or  European  theaters.  The  user  has  the 
option  to  control  the  length  of  the  time  intervals  between  COHORT 
package  replacements.  The  model  is  capable  of  playing  3,  4,  or  5 
companies  per  battalion.  To  allow  for  computation  of  battalion  COHORT 
replacement  packages,  either  3-,  4-,  or  6-month  time  intervals  must  be 
used.  The  model  will  play  any  other  interval;  however,  the  battalion 
package  output  is  forfeited.  The  user  also  has  the  capability  of 
determining  NCO  replacements  over  various  replacement  intervals.  The 
user  can  have  the  model  create  the  initial  force  or  supply  the  model 
with  a  current  company  personnel  profile. 

i’ . 

0-2.  THE  MODEL."'  C-REM  is  a  BASIC  program  designed  to  run  on  an  IBM 
PC-AT  or  compatible  mach i neTfOTS" "3 . 10 The  model  consists  of  four 
main  modules:  C-REM,  BUILD,  FORSCOM,  and  EUROPE.  The  code  for  these 
modules  is  in  Annexes  I-IV,  respectively.  -,<•  W  ,  ■  wr'1' 

a.  C-REM.  The  sole  purpose  of  the  C-REM  module  is  to  link  the  user 
with  either  the  BUILD,  FORSCOM,  or  EUROPE  module.  By  calling  C-REM, 
the  screen  will  appear  as  shown  in  Figure  D-l,  giving  a  brief  descrip¬ 
tion  of  the  overall  C-REM  model.  Pressing  any  key  then  displays  the 
screen,  Figure  D-2,  which  prompts  the  user  to  determine  how  the  model 
is  to  be  executed.  The  user  has  the  option  of  creating  a  company 
personnel  profile  (option  "C"),  or  modeling  a  FORSCOM  (option  "F")  or  a 
European  (option  "E")  company/battery  or  battalion.  The  reason  for 
having  both  the  FORSCOM  module  and  the  EUROPE  module  is  that  the 
personnel  policies  for  FORSCOM  and  EUROPE  are  different. 


THE  PURPOSE  OF  THIS  PROGRAM  IS  TO  DETERMINE  THE  SIZES  OF  COHORT 
REPLACEMENT  PACKAGES  OVER  VARIOUS  REPLACEMENT  INTERVALS  FOR 
FIRST  TERM  SOLDIERS  ASSIGNED  TO  COMPAN I ES /BATTERY 3  IN  EITHER  FORSCOM 
OR  EUROPE  IN  AOOITION  TO  FIRST  TERM  SOLDIERS,  VOU  HAVE  THE  OPTION 
TO  DETERMINE  NCO  REPLACEMENTS  OVER  VARIOUS  REPLACEMENT  INTERVALS 
YOU  CAN  ALSO  INPUT  A  CURRENT  UNIT'S  PERSONNEL  PROFILE  IF  YOU  DESIRE 
THIS  PROGRAM  CAN  PROOUCE  FOUR  DIFFERENT  PRINTOUTS 

1  CO/0TRY  COHORT  PKQ  SIZES 

2  BATTALION  COHORT  PKQ  RlZES  (OPTIONAL) 

3  NCO  STRENOTH  (OPTIONAL) 

4  MONTHLY  STRENGTH  BY  GRADE  (OPTIONAL) 

PRESS  ANY  KEY  TO  CONTINUE 


Figure  D-l.  C-REM  Sample  1 
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DO  YOU  WANT  TO  INPUT  DATA  FOR  A  FOR3COM  OR  EUROPEAN  TYPE  UNIT 
OR  DO  YOU  WANT  TO  INPUT  A  CURRENT  UNIT'S  PROFILE  ? 


ENTER  *F*  FOR  FOR3COM  ,  *E*  FOR  EUROPE  OR  *C*  TO  INPUT  A  PROFILE 


Figure  0-2.  C-REM  Sample  2 


b.  Build.  The  BUILD  module  is  called  by  the  C-REM  module  when  the 
user  chooses  Option  "C"  from  the  main  menu.  The  purpose  of  this  module 
is  to  allow  the  user  to  create  a  file  of  a  current  company/battery 
personnel  profile,  which  can  then  be  used  again  and  again.  BUILD 
prompts  the  user  as  to  whether  a  FORSCOM  or  EUROPEAN  company/battery 
profile  is  going  to  be  entered. 

(1)  FORSCOM  Unit.  BUILD  will  allow  a  FORSCOM  company/battery  to 
be  input  by  choosing  the  "F"  option.  For  first-term  soldiers  in 
FORSCOM,  the  length  of  the  soldier's  initial  enlistment  contract  and 
the  soldier's  time  remaining  in  the  service  (both  in  months)  are  the 
only  two  inputs  required  by  C-REM.  For  NCOS,  the  only  input  required 
by  C-REM  is  the  NCO's  time  remaining  in  the  company/battery  to  which 
the  NCO  is  assigned.  The  BUILD  module  prompts  the  user  for  all  these 
inputs. 

(2)  EUROPEAN  Unit.  BUILD  will  allow  a  EUROPEAN  company/battery 
to  be  input  by  choosing  the  "E"  option.  For  first-term  soldiers  in  a 
EUROPEAN  company,  the  length  of  the  soldier's  initial  enlistment  con¬ 
tract  and  the  soldier's  time  remaining  in  the  service  (both  in  months) 
are  two  of  the  three  inputs  required.  The  third  input  required  is  the 
soldier's  time  remaining  in  the  company/battery  to  which  the  soldier  is 
assigned.  This  third  input  is  required  to  determine  whether  or  not  a 
soldier  is  eligible  to  return  back  to  CONUS  as  well  as  for  promotions. 
For  NCOS,  the  only  input  required  is  the  NCO's  time  remaining  in  the 
company/battery  to  which  the  NCO  is  assigned.  Ihe  BUILD  module  prompts 
the  user  for  all  of  these  inputs. 

(3)  Other  Inputs.  Figure  D-3  shows  the;only  other  inputs 
required  by  the  BUILD  module.  These  inputs  are  required  when  inputting 
data  for  either  a  FORSCOM  or  a  EUROPEAN  unit.  The  user  inputs  this 
data  immediately  after  choosing  to  input  a  FORSCOM  or  EUROPEAN  unit  and 
is  then  prompted  for  the  individual  first-termer  and  NCO  data.  All  of 
the  inputs  will  then  be  saved  on  the  disk  ir,  a  file  named  by  the  user. 
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ENTER  THE  TOTAL  FIRST  TERMERS,  E 1  -  E4 

ENTER  THE  TOTAL  NUMBER  OF  E5S 
ENTER  THE  TOTAL  NUMBER  OF  ESS 
pmtco  THE  TOTAL  NUMBER  OF  E7S 
ENTER  THE  DATA  F I LE  NAME 


Figure  D-3.  BUILD  Sample 


(4)  Outputs.  Upon  completion  of  the  company/battery  personnel 
profile,  the  user  then  has  the  option  of  getting  a  hard  copy  of  the 
company/battery  profile  just  created.  The  user  can  then  create  another 
company/battery  personnel  profile  or  return  to  the  C-REM  module  to  use 
either  the  FORSCOM  or  EUROPE  module  with  the  company/battery  personnel 
profile  or  newly  created  profiles. 

c.  FORSCOM.  The  FORSCOM  module  is  called  by  the  C-REM  module  when 
the  "F"  option  is  chosen  from  the  main  menu.  The  purpose  of  this 
module  is  to  simulate  a  CONUS  company/battery  life  span  under  a  fixed 
station  concept.  The  module  takes  into  consideration  unprogramed 
attritions,  promotions,  normal  losses,  reassignments,  and  reenlist¬ 
ments,  All  of  these  transactions  are  controlled  by  rates  that  are 
input  by  the  user.  The  inputs  required  for  the  FORSCOM  module  are 
discussed  below.  The  outputs  of  the  FORSCOM  module  are  identical  to 
the  outputs  of  the  EUROPE  module  and  will  be  discussed  in  paragraph 
0-3. 

(1)  FORSCOM  Inputs.  The  FORSCOM  module  is  extremely  flexible 
because  all  variables  are  input  by  the  user.  However,  to  achieve  this 
flexibility,  the  user  is  prompted  for  a  large  number  of  inputs.  The 
user  is  initially  prompted  for  a  filename  to  which  these  inputs  will  be 
saved  on  disk.  Once  an  input  file  is  created,  the  user  can  then  have 
the  module  load  this  data  without  having  to  type  individual  inputs.  If 
this  is  done,  the  user  has  the  option  to  change  any  or  all  of  the 
inputs  and  to  save  the  changes  under  a  new  filename  or  the  same  file 
name.  Since  many  of  the  inputs  are  relatively  stable,  it  is  recom¬ 
mended  that  if  only  a  few  changes  are  desired,  the  user  should  load  an 
existing  file  into  memory,  make  the  desired  changes,  and  then  save  the 
data  in  a  new  file.  This  also  enables  the  user  to  play  the  "what  if" 
game  by  making  minor  changes  to  the  inputs,  executing  the  simulation, 
and  then  repeating  the  process  to  analyze  the  affect  of  the  changes. 
Among  the  inputs  are  authorized  strengths  for  f irst-termers  and  NCOs. 
The  user  has  the  option  of  having  either  an  initial  force  as  100 
percent  of  the  authorized  strength  or  the  user  can  supply  an  initial 
force  based  on  a  current  company  personnel  profile  created  in  the  BUILD 
module.  With  either  choice,  the  force  is  initially  loaded.  At  the 
first  time  period  specified  by  the  input  for  the  number  of  the  month 


D-3 


CAA-SR-87- 18 


for  first-term  replacements  and  NCO  replacements,  the  company/battery 
is  filled  to  100  percent  of  authorized  strength.  The  company/battery 
continues  receiving  replacements  In  equally  spaced  intervals  based  on 
these  inputs.  The  user  is  prompted  for  all  of  these  inputs  and  is 
expected  to  be  familiar  with  current  FORSCOM  personnel  policies  and  the 
structure  of  FORSCOM  companies/batteries.  If  the  user  is  familiar  with 
these,  all  of  the  inputs  will  be  self-explanatory. 

(2)  Control.  To  control  the  execution  of  this  module  and  the 
life  span  of  a  company/battery,  the  user  must  also  input  the  number  of 
months  to  be  simulated  and  the  number  of  repetitions  to  be  executed. 

It  is  recommended  that  the  number  of  months  to  be  simulated  be  at  least 
72.  Also,  the  number  of  repetitions  should  be  at  least  30  for  the 
results  to  be  statistically  significant.  For  example,  if  the  number  of 
months  simulated  is  72  and  the  number  of  repetitions  Is  30,  then  the 
module  will  execute  the  simulation  30  times  with  a  company  life  span  of 
72  months  and  will  be  statistically  significant.  Output  data  from 
simulations  that  are  less  than  30  repetitions  should  not  be  considered 
since  statistically  they  maybe  in  error. 

d.  EUROPE.  The  EUROPE  module  is  called  by  the  C-REM  module  when 
the  "E"  option  is  chosen  from  the  main  menu.  The  purpose  of  this 
module  is  to  simulate  an  0C0NUS  company/battery  life  span  under  a  fixed 
station  concept.  The  module  takes  into  consideration  unprogramed 
attritions,  promotions,  normal  losses,  reassignments,  and  reenlist¬ 
ments.  All  of  these  transactions  are  controlled  by  rates  that  are 
input  by  the  user.  The  inputs  that  are  required  for  the  EUROPE  module 
are  discussed  below.  The  outputs  of  the  EUROPE  module  will  be  dis¬ 
cussed  in  conjunction  with  the  output  of  the  FORSCOM  module  in  para¬ 
graph  D-3.  The  EUROPE  module  is  very  similar  to  the  FORSCOM  module 
with  the  exception  of  reassignments,  which  must  be  treated  differently 
due  to  differing  personnel  policies.  The  EUROPE  module  also  considers 
3-year  and  4-year  enlistments,  variable  enlistments,  and  marital 
status,  where  as  the  FORSCOM  module  does  not  consider  mar’tal  status. 

(1)  EUROPE  Inputs.  The  EUROPE  module  is  also  extremely  flexible, 
and  the  user  is  prompted  for  a  large  number  of  inputs.  As  with  the 
FORSCOM  module,  the  user  is  initially  prompted  for  a  filename  to  which 
these  inputs  will  be  saved.  The  user  then  has  the  same  options  as  the 
FORSCOM  module  as  discussed  in  paragraph  D-2c(l).  For  example,  the 
user  can  play  the  "what  if..."  game  as  in  the  FORSCOM  module.  The 
primary  distinction  between  EUROPE  inputs  and  FORSCOM  inputs  is  that 
the  EUROPE  module  requires  more  variables  to  be  input.  The  first 
additional  input  is  the  percentage  of  initial  fill  a  company/battery 
will  have.  The  reason  for  this  input  is  that  initially  the  user  may 
want  to  overfill  the  company  since  replacements  for  f irst-termers  and 
NCOs  do  not  arrive  until  month  12.  The  remaining  additional  inputs  are 
concerned  with  marital  status  and  all-others  tours  for  NCOS.  The  user 
is  prompted  for  all  of  these  inputs  and  is  expected  to  be  familiar  with 
current  EUROPEAN  personnel  policies  and  the  structure  of  EUROPEAN 
companies/batteries.  If  the  user  is  familiar  with  these,  all  of  the 
inputs  will  be  self-explanatory. 
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(2)  Control.  The  same  control  variables,  as  discussed  in  para¬ 
graph  D-2c(2)  for  the  FORSCOM  module,  are  input  to  control  the  simu¬ 
lation  of  the  EUROPE  module.  Also,  the  same  recommendations  for  the 
number  of  months  to  simulate  and  the  number  of  repetitions  to  ensure 
statistical  significance  are  identical  for  the  EUROPE  module. 

D-3.  MODEL  OUTPUTS.  The  same  outputs  are  available  when  running 
either  the  FORSCOM  module  or  the  EUROPE  module.  There  are  five  output 
reports  available,  the  last  three  of  which  are  optional.  The  three 
optional  reports  are  a  listing  of  battalion  COHORT  package  sizes,  NCO 
strengths,  and  monthly  strengths  by  grade.  The  input  variables  arid  the 
company/battery  COHORT  package  sizes  report  are  generated  auto¬ 
matically.  The  user  is  prompted  regarding  the  three  optional  reports. 

a.  The  first  report  is  a  listing  of  the  input  variables  which  drive 
the  simulation.  Figure  D-4  Is  a  sample  report  of  the  inputs  supplied 
to  the  EUROPE  module  when  simulating  life  cycles  of  an  OCONUS  13B 
battery.  Figure  D-5  is  a  sample  report  of  the  inputs  supplied  to  the 
FORSCOM  module  when  simulating  life  cycles  for  a  13B  battery  in  CONUS. 
The  differences  are  due  to  the  differing  personnel  policies  in  the 
FORSCOM  and  EUROPE  modules. 

b.  The  next  repor..  is  also  generated  automatically.  This  report 
lists,  in  4-month  intervals,  the  average  company/battery  package  size, 
a  90  percent  confidence  Interval,  the  standard  deviation,  and  the  per¬ 
cent  of  the  company/battery  strength  based  on  the  number  of  repetitions 
supplied  by  the  user.  Figure  D-6  is  a  sample  report  of  the  company 
first-termer  COHORT  replacement  packages  for  a  13B  OCONUS  battery. 

c.  The  first  optional  report  available  is  a  report  of  the  battalion 
first-termer  COHORT  replacement  packages.  This  report  lists  the  aver¬ 
age  package  sizes  for  each  company/battery  in  the  battalion,  a  90  per¬ 
cent  confidence  interval,  the  standard  deviation,  and  the  average 
percent  of  company/battery  strength  every  4  months.  The  averages, 
confidence  interval,  and  the  standard  deviation  are  all  based  on  the 
number  of  repetitions  input  by  the  user.  This  output  report  is  only 
available  when  the  user  is  simulating  a  battalion  consisting  of  3,  4, 
or  5  companies/batteries.  Figure  0-7  is  a  sample  report  of  a  138 
OCONUS  battalion. 

d.  The  second  optional  report  is  the  listing  in  4-month  intervals 
of  the  minimum  NCO  strengths  by  grade  before  replacements.  Figure  D-8 
is  a  sample  minimum  NCO  strength  before  replacements  report  for  a  13B 
OCONUS  battery. 

e.  The  third  optional  output  report  is  a  monthly  listing  of  the 
company/battery  strength  by  grade.  This  report  also  lists  the 
percentage  of  strength  for  the  total  company/battalion  and  for  NCO 
strength.  Figure  D-9  is  a  sample  monthly  report  for  a  13B  OCONUS 
battery. 
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•11-09-1987  18i03t08 

USAEUR  -  FIELO  ART  I LLERY  BATTERY  (1SS  SP>  J  SERIES  TOE 

THE  OUTPUT  WAS  DERIVED  FROM  THE  INPUT  DATA  LISTED  BELOW. 


A--TOTAL  1ST  TERMERS  IN  THE  UNIT - —  53 

EXPECTED  PERCENT  OF  FILL—  100 


a— expected  percentaoe  of  vel  SOLDIERS -  0 

C— EXPECTED  LENGTH  OF  A  VEL  CONTRACT  IN  MONTHS -  0 

0— THE  TOTAL  PERCENTAGE  OF  SOLDIERS  EXPECTED  FOR  JET--  20 
E--THE  PERCENTAGE  EXPECTED  FOR  3  YR  JET  ENLISTMENTS—  70 

REMAINING  SOLDIERS  ARE  ASSUMED  TO  BE  4  YR  JET  ENLISTEES—  30 


F  — THE  '.OUR  LENGTH  FOR  JET  SOLDIERS  IN  MONTHS - 36 

G  — THE  PERCENTAOE  OF  SOLDIERS  THAT  ARE  EXPECTED  TO 
EXTEND  THEIR  ENLISTMENT  FOR  A  CONUS  ASSIGNMENT 

JET  SOLDIERS  -  2 

UNACCOMPANIED  SOLDIERS  -  4 

H— EXPECTED  PERCENTAOE  OF  3  YR  ENLISTMENTS -  70 

REMAINING  SOLDIERS  ARE  ASSUMED  TO  BE  4  YR  ENLISTEES—  30 

! --THE  TOUR  FOR  UNACCOMPANIED  SOLDIERS  IN  MONTHS -  74 

J — EXPECTED  TRAINING,  LEAVE  AND  TRAVEL  TIME  IN  MONTHS 

THAT  A  SOLDIER  WILL  HAVE  BEFORE  ARRIVING  AT  H I  S  UNIT—  4 
THE  PERCENTAGE  OF  EXPECTED  EXTENSIONS  AND  REUPS  FOR  PDA 


AND  THE  AVERAGE  EXTENSION  LENGTH  IN  MONTHS  OF  THE  TOUR  FOR  1 

K— UNACCOMPAN  I  ED  1st  TERMERS - 6 

L— THE  AVERAGE  LENGTH  IN  MONTHS -  12 

M — JET  SOLDIERS - 2 

N — THE  AVERAGE  LENGTH  IN  MONTHS -  12 

O  — EXPECTED  PROMOTION  MONTH  TO  E5 -  28 

P  —  EXPECTED  MONTHLY  PROMOTION  PERCENTAGE  TO  E5 - -  3.7 

Q— THE  EXPECTED  MONTHLY  ATTRITION  RATE  IN  PERCENT -  1 

R— THE  INTERVAL  FOR  1ST  TERMER  REPLACEMENTS.  IN  MONTHS -  4 

S — THE  NUMBER  OF  MONTHS  SIMULATED -  180 

T— THE  NUMBER  OF  REPETITIONS -  30 

U — MONTHLY  LISTING  OF  UNIT  STRENGTH —  YES 
V  — BATTALION  TOTALS  FOR  REPLACEMENTS—  YES 
COMPANIES  IN  THE  BATTALION  IS--  4 

NCO  DATA  ••««•»*«»««*»••.«».«.«»«»««•.»«•»»« 


A— NUMBER  OF  AUTHORIZED  £51 -  16 

8 — THE  EXPECTED  TOUR  LENGTH  FOR  AH  E5 ,  IN  MONTHS -  36 

C— EXPECTED  MONTHLY  PERCENT  OF  ATTRITION  FOR  E5s -  .5 

0- -THE  EXPECTED  MONTHLY  PROMOTION  PERCENTAGE  OF  ESs  TO  E6 -  .5 

E — NUMBER  OF  AUTHORIZED  E6s -  10 

F--THE  EXPECTED  TOUT  LENGTH  FOR  AN  EC ,  IN  MONTHS -  36 

O — EXPECTED  MONTHLY  PERCENT  OF  ATTRITION  FOR  E6s -  .2 

H — THE  EXPECTED  MONTHLY  PROMOTION  PERCENTAGE  OF  E6s  TO  E7 -  .3 

I — NUMBER  OF  AUTHORIZED  E7s - 4 

J  — THE  EXPECTED  TOUR  LENGTH  FOR  AN  E7,  IN  MONTHS - 36 

K  — EXPECTED  MONTHLY  PERCENT  OF  ATTRITION  FOR  E7s - .2 

L  — THE  EXPECTED  MONTHLY  PROMOTION  PERCENTAGE  OF  E7s  TO  ES - .2 

M — THE  EXPECTED  PERCENTAGE  OF  NCOS  THAT  WILL  CHOOSE  AN 

ALL  OTHERS  TOUR  RATHER  THAN  AN  ACCOMPANIED  TOUR -  25 

N— THE  LENGTH  OF  AN  ALL  OTHERS  TOUR -  24 

0— THE  EXPECTED  PERCENT  OF  INITIAL  NCO  fILL—  90 


THE  EXPECTED  PERCENT  OF  FILL  FOR  NCOS  DURING  THE  UNIT'S 


L 1 FET IME 
p  — 

FOR; 

ESS  — 

100 

Q— 

E6s  -- 

100 

n— 

E7s  — 

100 

THE  PERCENTAGE  OF  EXPECTED  EXTENSIONS  ANO  REUPS  FOR  PDA 
AND  THE  AVERAGE  EXTENSION  LENGTH  IN  MONTHS  CF  THE  TOUR  FOR: 
S — THE  EXPECTED  PERCENT  OF  NCO  EXTENSIONS —  4 

t— the  average  length  in  months —  12 

U--THE  INTERVAL  FOR  NCO  REPLACEMENTS.  IN  MONTHS -  4 

V — THE  MONTH  TO  START  NCO  REPLACEMENTS -  24 


Figure  0-4.  Sample  Report  of  EUROPE  Inputs 
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1  1  -09-'  1 987  1**62x00 

FORSCOM  -  FIELD  ARTILLERY  BATTERY  <155  SP>  J  SERIES  TOE 

*  S* *  * X  * 

THE  OUTPUT  WAS  DERIVED  FROM  THE  INPUT  DATA  LISTED  BELOW. 

A — TOTAL  1ST  TERMERS  IN  THE  UNIT -  63 

B— EXPECTED  PERCENTAGE  OF  VEL  SOLDIERS----  0 

C— EXPECTED  LENGTH  OF  A  VEL  CONTRACT  I  N  MONTHS -  0 

D— EXPECTED  PERCENTAGE  OF  3  YR  ENLISTMENTS -  70 

E— EXPECTED  TRAINING,  LEAVE  AND  TRAVEL  TIME  IN  MONTHS 

THAT  A  SOLDIER  WILL  HAVE  BEFORE  ARRIVING  AT  H I S  UNIT—  3 

F— PERCENTAGE  OF  EXPECTED  EXTENSIONS  AND  REUPS  FOR  PDA -  5 

G— EXPECTED  PROMOTION  MONTH  TO  E5 -  20 

H--EXPECTED  MONTHLY  PROMOTION  PERCENTAGE  TO  E5 -  3.5 

I — THE  EXPECTED  MONTHLY  ATTRITION  RATE  IN  PERCENT -  1 

J — THE  INTERVAL  FOR  1ST  TERMER  REPLACEMENTS,  IN  MONTHS  -  4 

K— THE  MINIMUM  TIME  IN  MONTHS  THAT  A  SOLDIER 

MUST  BE  IN  THE  UNIT  TO  BE  ELIGIBLE  TO  BE  REASSIGNED -  24 

L — THE  MINIMUM  TIME  IN  MONTHS  THAT  A  SOLDIER 

MUST  HAVE  REMAINING  IN  THE  SERVICE  TO  BE  REASSIGNED - —  12 

M — THE  EXPECTED  MONTHLY  PERCENTAGE  OF  REASSIGNMENTS - —  4 

N — THE  NUMBER  OF  MONTHS  SIMULATED -  180 

O — THE  NUMBER  OF  REPETITIONS -  30 

P — MONTHLY  LISTING  OF  UNIT  STRENGTH -  YES 

Q—BATTAL  I  ON  TOTALS  FOR  REPLACEMENTS - YES 

NUMBER  OF  COMPANIES  IN  THE  BATTALION  IS- -  4 

NCO  DATA  «***■**«**«■*■«*■■*■***»»****»***** 


A — NUMBER  OF  AUTHORIZED  Fg- -  16 

B — THE  EXPECTED  TOUR  LENGTH  FOP  AN  E5 ,  IN  MONTHS -  30 

C--EXPECTED  MONTHLY  PERCENT  OF  ATTRITION  FOR  E5s -  .5 

D — THE  EXPECTED  MONTHLY  PROMOTION  PERCENTAGE  OF  E5s  TO  E6 -  .5 

E  — NUMBER  OF  AUTHORIZED  E6s - 10 

F  — THE  EXPECTED  TOUR  LENGTH  FOR  AN  E6,  IN  MONTHS - 42 

G--EXPECTED  MONTHLY  PERCENT  OF  ATTRITION  FOR  E6s -  .2 

H — THE  EXPECTED  MONTHLY  PROMOTION  PERCENTAGE  OF  E6s  TO  E7 -  .3 

I --NUMBER  OF  AUTHORIZED  E7s -  4 

J — EXPECTED  TOUR  LENGTH  FOR  AN  E7,  IN  MONTHS -  48 

K — EXPECTED  MONTHLY  PERCENT  OF  ATTRITION  FOR  E7s -  .2 

L — THE  EXPECTED  MONTHLY  PROMOTION  PERCENTAGE  OF  E7s  TO  E8 -  .2 

M — THE  EXPECTED  PERCENT  OF  INITIAL  NCO  FILL -  90 


ENTER  THE  EXPECTED  PERCENT  OF  FILL  FOR  NCOS  DURING  THE  UNIT'S 
LIFETIME  FOR*. 

N — E5s - 100 

O — E6s - 100 

P  —  E?S - 100 

Q — THE  MONTH  TO  START  NCO  REPLACEMENTS -  24 

R — THE  INTERVAL  FOR  NCO  REPLACEMENTS.  IN  MONTHS -  4 

Figure  0-5.  Sample  Report  of  FORSCOM  Inputs 
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COMPANY  F 1 RST  TERMER  COHORT 

REPLACEMENT  PACKAGES 

MONTH 

A  VO 

P KG  S 1 ?E 

90%  CONFIDENCE  INTERVAL 
LOWER  BOUNDS  UPPER  BOUNDS 

STD  DEV 

%  UNIT  9TR 

12 

6 

5 . 6 

6 , 9 

0 . 4 

88.7 

ie 

a 

1  .  5 

2. 5 

0 . 3 

96.2 

20 

2 

1 , 6 

2 . 3 

0 . 2 

96. 2 

24 

4 

2 . 9 

4  .  1 

0 . 3 

92. 5 

28 

7 

6,5 

3  .  1 

0 . 5 

86.8 

32 

24 

23,0 

24 . 7 

0 . 5 

54.7 

38 

3 

3 . 0 

3 . 9 

0 . 3 

94.3 

40 

4 

3 , 0 

4 . 2 

0.4 

92 . 5 

44 

13 

12,3 

13.9 

0 . 5 

75  5 

40 

4 

3, 4 

4 . 6 

0 . 4 

92 . 5 

52 

5 

4  ,  1 

5 . 3 

0 . 4 

90 . 6 

56 

3 

7 , 5 

9 . 4 

0  6 

84 . 9 

60 

7 

6  .  1 

7. 6 

0  5 

86 . 8 

64 

12 

10.7 

12.7 

0 . 6 

77.4 

68 

7 

6 . 4 

7 . 5 

0 . 3 

86 . 8 

72 

6 

5 . 4 

6. 7 

0 , 4 

38 . 7 

76 

9 

8 . 3 

9. 3 

0 . 4 

83.0 

ao 

7 

6  .  1 

7 . 7 

0.5 

se .  a 

84 

6 

5  .  1 

6,3 

0 . 3 

88 . 7 

as 

9 

8.0 

9 . 6 

0.5 

83.0 

92 

7 

6.5 

8.2 

0 . 5 

36.8 

96 

9 

8.4 

9 .  a 

0 . 4 

93.0 

100 

8 

7.6 

9.  1 

0 . 5 

84. 9 

104 

7 

a  i 

7.5 

0 . 4 

86 . 8 

103 

8 

7  .  1 

a .  8 

0 . 5 

84. 9 

1  12 

7 

6 . 6 

8 . 2 

0 . 5 

86  a 

1  16 

7 

6 . 5 

7 . 9 

0 . 4 

86  .  a 

120 

a 

7 . 2 

9  1 

0 . 6 

84.9 

124 

8 

7 . 2 

8. 5 

0 . 4 

84 . 9 

128 

7 

6  5 

a .  o 

0 . 5 

86  .  a 

132 

8 

7 . 2 

8 . 9 

0 . 5 

84 . 9 

136 

7 

6  3 

7 . 9 

0 . 5 

86 . 8 

140 

3 

e .  a 

8 . 3 

0 . 4 

84  9 

1  44 

a 

7 . 0 

8  .  1 

0 . 3 

94.9 

148 

7 

6 . 5 

7 . 3 

0 . 4 

86.8 

152 

a 

7  -  5 

a .  a 

0 . 4 

84. 9 

156 

9 

7 . 4 

3 . 9 

0 . 4 

84. 9 

160 

7 

6 . 5 

3  .  1 

0 . 5 

86.8 

164 

8 

7 . 7 

9 . 3 

0 . 5 

34 . 9 

1  sa 

3 

6 , 9 

8 . 4 

0 . 5 

94  9 

172 

7 

6 . 7 

8.0' 

0 . 4 

36 . 9 

1  76 

9 

6 . 7 

8 . 3 

0 . 5 

84 . 9 

130 

3 

7  .  1 

a .  5 

,  0  ■  4 

34 . 9 

0-8 

Figure  0-6 
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BATTALION  FIRST  TERMER  COHORT  REPLACEMENT  PACKAGES 


MONTH 

CO 

PKO  S 1 ZE 

90 ‘U  CONFIDENCE 
LOWER  0 

INTERVAL 
UPPER  B 

STD  DEV 

V.  UN  1  T  STR 

12 

A 

6 

5  .  6 

6 . 9 

0 . 4 

r* 

CO 

CD 

16 

A 

2 

1  .  S 

2 . 5 

0 . 3 

96 . 2 

20 

A 

2 

1  .  6 

2 . 3 

0 . 2 

96 . 2 

24 

A 

4 

2 . 9 

4.  1 

0 . 2 

92 . 3 

B 

6 

5 , 6 

6 . 9 

0 . 4 

88 . 7 

2B 

A 

10 

? 

6 . 5 

a.  1 

0 . 3 

86 . 0 

B 

2 

1  .  5 

2 . 3 

0, 3 

96 . 2 

32 

A 

9 

24 

23 . 0 

24 . 7 

0 . 3 

54.7, 

B 

2 

1  .  6 

2. 3 

0 . 2 

96 . 2 

36 

A 

26 

3 

3. 0 

3 . 9 

0 . 3 

94 . 3 

B 

4 

2 . 9 

4  .  1 

0 . 3 

92 . 3 

C 

6 

3 . 6 

6 . 9 

0  4 

aa  7 

40 

A 

13 

4 

3 . 0 

4 . 2 

0 . 4 

92 . 5 

a 

7 

6 . 3 

a .  i 

0  .  S 

06 . 8 

c 

2 

1  .  3 

2.3 

0 . 3 

96 . 2 

44 

A 

13 

13 

12.3 

13.9 

0 . 5 

75 . 5 

B 

24 

23 . 0 

24 . 7 

0 . 5 

34  7 

C 

2 

1  .  <5 

2 . 3 

0 . 2 

96 . 2 

48 

A 

39 

4 

3  .  4 

4 . 6 

0  .  4 

92 . 5 

a 

3 

3 . 0 

3  .  9 

0 . 3 

94 . 3 

c 

4 

2  ,  9 

4  .  1 

0 . 3 

92  .  S 

0 

6 

3  .  6 

6  .  9 

0 . 4 

38 . 7 

52 

A 

\  7 

S 

4  .  1 

5 . 3 

0 . 4 

90 . 6 

B 

4 

3 . 0 

4 . 2 

0  4 

92 . 5 

C 

7 

$  .  5 

S  1 

0 . 3 

86 . 8 

D 

2 

1  3 

2  .  3 

,  0  3 

96 . 2 

IS 

Figure  D-7.  Sample  Battalion  First-termer  COHORT 
Replacement  Packages  Report 
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MINIMUM  NCO  STRENGTH  BEFORE  REPLACEMENTS 


MONTH 

E5  STR 

E6  STR 

E7  STR 

12 

12 

9 

4 

16 

12 

9 

4 

20 

1  1 

9 

4 

24 

13 

9 

4 

28 

22* 

10 

4 

32 

18* 

1  1* 

3* 

36 

16 

9 

4 

40 

18* 

10 

4 

44 

1  1 

10 

5* 

48 

8 

4 

1 

32 

16 

10 

4 

36 

16 

10 

4 

60 

16 

9 

4 

64 

13 

10 

4 

68 

14 

10 

4 

72 

14 

3 

3 

76 

14 

9 

4 

80 

13 

10 

4 

84 

12 

6 

2 

88 

13 

10 

4 

92 

16 

10 

4 

96 

15 

9 

4 

100 

IS 

10 

4 

104 

14 

10 

4 

108 

14 

8 

3 

1  12 

14 

9 

4 

116 

14 

9 

4 

120 

13 

7 

2 

124 

14 

10 

4 

128 

15 

10 

4 

132 

15 

9 

4 

136 

13 

9 

4 

140 

14 

10 

4 

144 

13 

8 

3 

148 

1  4 

9 

4 

152 

1  4 

9 

4 

156 

14 

7 

3 

160 

1  4 

10 

4 

164 

15 

10 

4 

168 

14 

9 

4 

172 

14 

9 

4 

176 

14 

9 

4 

180 

1  4 

3 

3 

*  -  INDICATES  OVERSTRENGTH 


Figure  0-8 


Sample  NCO  Strength  Report 
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MONTHLY  UNIT  STRENGTH  BY  GRADE 


MONTH  El -4 


1 

32 

2 

32 

3 

31 

4 

31 

S 

30 

6 

30 

7 

30 

8 

49 

9 

49 

10 

40 

1  1 

47 

12 

S3 

13 

S3 

14 

32 

13 

32 

10 

33 

17 

32 

18 

32 

19 

3  1 

20 

33 

21 

32 

22 

32 

23 

32 

24 

S3 

23 

3  1 

20 

49 

27 

48 

aa 

33 

29 

32 

30 

SO 

31 

49 

32 

33 

33 

32 

34 

32 

33 

3  1 

36 

33 

3? 

32 

33 

3  1 

39 

3  1 

40 

33 

4  1 

32 

42 

3  1 

43 

30 

44 

33 

43 

33 

46 

32 

47 

3  1 

48 

S3 

49 

3  3 

SO 

32 

5  1 

3  1 

S3 

S3 

33 

52 

34 

52 

33 

3  1 

Figure  D-9. 


ESs 


E7s 


14 
14 
14 
13 
13 
13 
13 
13 
13 
13 
13 
12 
12 
12 
•  12 
12 
12 
12 
12 
1  1 
*  1 
1  1 
1  1 
16 
1  84 
19* 
20* 
22* 
23* 
23* 
23  * 
18* 
1  8* 
1  3* 
18* 
17* 
17* 
18* 
18* 

1  3* 

1  3* 
19* 
19* 
1(3 
1(3 
16 
1<5 
1  6 
16 
16 
1  6 
1  6 
1  6 
1  7* 

1  7* 


9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
10 
10 
10 
10 
1 1* 
1 1* 
1 1  * 
1 1  * 
1 1* 
1  1  * 
1 1* 
1 1  * 
10 
10 
10 
10 
1  1  * 

1  1  * 

1  1* 

1  1  * 
10 
1  1  * 

1  1  * 

1  1  * 
10 
10 
10 
10 
10 
10 
10 
1  0 


4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 


5* 

3* 

3* 

5* 

5* 

3* 

5* 

5* 

4 

4 

4 

4 

4 

5* 


5* 
5  * 
5* 
3  * 
5* 
5* 


4 

4 

4 

4 

4 

4 

4 

4 


Sample  Monthly  Strength  by 


*/.  UNIT  3TR/NCO  3TR 


95.2  /  90 . 0 


95 . 2 

/ 

90.0 

94 . 0 

/ 

90 . 0 

92 .  a 

/ 

86 . 7 

91,6 

/ 

86 . 7 

9  1.6 

/ 

86 . 7 

91.6 

/ 

86 , 7 

90 . 4 

/ 

86.7 

90 . 4 

/ 

.  86.7 

89.2 

/ 

86.7 

88 . 0 

/ 

86 . 7 

94 . 0 

/ 

83.3 

94 . 0 

/ 

83.3 

92  .  a 

/ 

S3. 3 

92 . 3 

/ 

83.3 

94 . 0 

/ 

83 . 3 

92 . 3 

/ 

33  3 

92  .  a 

/ 

83 . 3 

91.6 

/ 

33.3 

92 . 8 

/ 

80 .0 

9  1.6 

/ 

80 . 0 

91.6 

/ 

80.0 

91.6 

/ 

80 . 0 

100.0 

/ 

100.0 

100.0 

/ 

106.7 

98 . 8 

/ 

110.0 

98 . 3 

/ 

113.3 

109.6 

f 

126.7 

109.6 

/ 

130.0 

107.2 

/ 

130.0 

108.4 

/ 

136.7 

104.8 

/ 

1133 

103  .  a 

/ 

113.3 

103.6 

/ 

113.3 

102.4 

/ 

113.3 

10  1.2 

/ 

103.3 

100.0 

/ 

103.3 

100.0 

/ 

106.7 

100  0 

/ 

106.7 

103  6 

/ 

110.0 

103.6 

/ 

113  3 

103.6 

/ 

116.7 

102.4 

/ 

116.7 

10  1.2 

/ 

103.3 

102.4 

/ 

106.7 

101  2 

/ 

106.7 

100.0 

/ 

106.7 

100.0 

/ 

100  0 

100.0 

/ 

100.0 

98 . 8 

/ 

100 . 0 

97 . 6 

/ 

100.0 

100.0  , 

/ 

100.0 

90.8 

/ 

100  0 

100.0  / 

103 . 3 

98.3  / 

'03.3 

Grade  Report 
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OREM  MODULE 


CAA-SR-87-18 


(NOT  USED) 


D- 1-2 
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«1C  CL9 ' PHI  NT : PH  I  NT 

20  PRINT  "THE  PURPOSE  OP  THIS  PROGRAM  IS  TO  DETERMINE  THE  SIZES  OF  COHORT" 

30  PRINT 

40  PRINT  "REPLACEMENT  PACKAGES  OVER  VARIOUS  REPLACEMENT  INTERVALS  FOR" 

30  PRINT 

60  PRINT  "FIRST  TERM  SOLDIERS  ASSIGNED  TO  COMP AN  I ES / BATTER VS  IN  EITHER  FORSCOM" 
70  PRINT 

80  PRINT  "OR  EUROPE.  IN  ADDITION  TO  FIRST  TERM  SOLDIERS,  YOU  HAVE  THE  OPTION" 

90  PRINT 

100  PRINT  "TO  DETERMINE  NCO  REPLACEMENTS  OVER  VARIOUS  REPLACEMENT  INTERVALS  " 

UO  PRINT 

120  PRINT  "YOU  CAN  ALSO  INPUT  A  CURRENT  UNIT'S  PERSONNEL  PROFILE  IF  YOU  DESIRE." 


130 
1  40 
130 
1  60 
170 
180 
190 
200 
210 
220 
230 
240 
230 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 


PRINT 
PRINT  " 

PRINT 
PRINT" 

PRINT 
PRINT" 

PRINT 
PRINT" 

PRINT 

PRINT"  4.  MONTHLY  STRENGTH  BY  GRADE  (OPTIONAL) 

PRINT  :  PRINT"PRE9S  ANY  KEY  TO  CONTINUE" 

FF I -  INKEY  * :  IF  FF • ■ M "  THEN  240 
CL9 


THIS  PROGRAM  CAM  PRODUCE  FOUR  DIFFERENT  PRINTOUTS. 

1.  CO/BTRY  COHORT  PKG  SIZES 

2.  BATTALION  COHORT  PKG  SIZES  (OPTIONAL) 

3.  NCO  STRENGTH  (OPTIONAL) 


PRINT: PRINT : PRINT : PRINT: PRINT : PRINT 

PRINT  "DO  YOU  WANT  TO  INPUT  DATA  FOR  A  FORSCOM  OR  EUROPEAN  TYPE  UNIT  " 

PR  I  NT : PR  1  NT  "OR  DO*  YOU  WANT  TO  INPUT  A  CURRENT  UNIT'S  PROFILE  1 "  - 
LOCATE  13,10 

PRINT  "ENTER  *F*  FOR  FORSCOM  ,  *E*  FOR  EUROPE  OR  *C*  TO  INPUT  A  PROFILE. 

FFF • ■ INPUT* ( 1 > 

IF  FFF 1  ■  "C"  OR  FFF  * ■ " o "  THEN  GOTO  370  ELSE  330 

IF  FFF  * • " F"  OR  FFF I  * " f "  THEN  GOTO  330  ELSE  340 

IF  FFF  *  - " E"  OR  FFF  $  * " # "  THEN  GOTO  360  ELSE  BEEP : GOTO  230 

RUN  "FORSCOM" 

RUN  "EUROPE" 

RUN  "BUILD" 
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BUILD  MODULE 


CAA-SR-87-18 


» 


(NOT  USED)  j 

i 
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10  CLS 

20  LOCATE  10,10 

30  PRINT  "13  THIS  UNIT  PROFILE  FOR  A  FORSCOM  OR  A  EUROPEAN  UNIT  ?" 

40  LOCATE  15,15 

50  PRINT  "TYPE  *F*  FOR  CONUS  OR  *E#  FOR  OCONUS" 

60  T  4  »  INPUT  *  <  1 ) 

70  IF  T*«"F“  OS  T»-"f"  THEN  90  ELSE  80 

80  IF  T»a"E"  OR  T»«"*“  THEN  90  ELSE  BEEP : GOTO  10 

90  CLS 

100  INPUT  "ENTER  THE  TOTAL  FIRST  TERMERS,  El  -  E4  " , FT 
110  DIM  UFQR  (FT, 4) 

120  INPUT  "ENTER  THE  TOTAL  NUMBER  OF  E5»  “,FS 
130  DIM  UE5  (F5 , 3 ) 

140  INPUT  "ENTEH  THE  TOTAL  NUMBER  OF  E6s  “ , F« 

ISO  DIM  UE5  ! F6 ,3) 

160  INPUT  "ENTEH  THE  TOTAL  NUMBER  OF  E7»  “ , F7 
170  DIM  UE7  (F7 , 3  > 

190  INPUT  "ENTER  THE  DATA  FILE  NAME  ",A» 

190  OPEN  A I  FOR  OUTPUT  AS  #1 

200  PRINT  # 1 , FT 

210  PRINT  M ,F3 

220  PRINT  »1  , F  6 

230  PHINT  »1 ,F7 

240  FOR  T»1  TO  FT 

250  CLS 

260  PRINT  »1 ,T 

270  PHINT : PRINT : PRINT : PRINT-OHADE  El  -  E4  SOLDIERS,  SOLDIER  #  "T 
230  PRINT :  PR  I  NT 

290  IF  T4«"F"  OH  T4«"f"  THEN  320 

300  INPUT  "TIME  REMAINING  IN  THE  COMPANY  IN  MONTHS  " , A 
310  PHINT  #1  ,A 
320  PRINT  PHI  NT 

330  INPUT  "ENTER  THE  LENGTH  OF  THE  SOLDI ERS  INITIAL  ENLISTMENT  CONTRACT  ",S 
340  PRINT  »1 ,B 
330  PR  I  NT : PR  1  NT 

360  INPUT  "ENTEH  THE  TIME  REMAINING  IN  SERVICE  IN  MONTHS  " , AA 

370  PRINT  #1 , AA 

380  NEXT  T 

390  PRINT  »1 , 99 

400  BEEP 

410  FOR  T*1  TO  F5 
420  CLS 

430  PRINT  »1  ,T 

440  PRINT ' PR INT : PRINT : PH INT"GRADE  E5  SOLDIERS,  SOLDIER  *  "T 
450  PRINT  PRINT 

460  INPUT  "TIME  REMAINING  IN  THE  COMPANY  IN  MONTHS  " , A 
470  PRINT  #1 , A 
480  NEXT  T 

490  PRINT  *1,99: BEEP 
500  FOR  T»l  TO  F6 
5 1 0  CLS 

520  PRINT  »t ,T 

530  PRINT : PR INT : PR INT ; PR INT"GRADE  E6  SOLDIERS,  SOLDIER  »  "T 
540  PHI  NT : PR  I  NT 

550  INPUT  "TIME  REMAINING  IN  THE  COMPANY  IN  MONTHS  '",A 
560  PRINT  »l , A 
570  NEXT  T 

580  PRINT  » 1 , 99 : BEEP 
590  FOR  T»1  TO  F7 
600  CLS 
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610  PB I  NT  #1  ,T 

820  PR 1NT  PRINT : PE  I  NT : PRINT"GRADE  E7  SOLDIERS,  SOLDI ER  *  "T 
830  PR  I  NT :  PR  I  NT 

840  INPUT  “TIME  REMAINING  IN  THE  COMPANY  IN  MONTHS  " , A 

830  PRINT  »1 ,A 

860  NEXT  T 

670  CLOSE 

880  CLS 

690  LOCATE  10,10  ■ 

700  PRINT  "DO  YOU  WANT  A  PRINTOUT  OF  THE  DATA  ENTERED  ? “ 

710  LOCATE  15,13 

720  PRINT  "ENTER  *  Y  *  FOR  YES,  »  N  *  FOR  NO  " 

730  Xt-lNPUTttl) 

740  IF  X  > ■ " n"  OR  X»«“N"  THEN  1310 

730  IF  x»«"y"  OR  X i ■ " Y "  THEN  760  ELSE  680 

760  OPEN  " I “ ,  »  1  , A» 

770  INPUT  • 1 , FT 
780  INPUT  #1,F5 
790  INPUT  #1,F6 
800  INPUT  #l,F7 
810  FOR  T-t  TO  FT+1 

820  IF  TS»"F"  OR  T»»"I"  THEN  AA  =  3  ELSE  AA-4 

830  FOR  TT  »  1  TO  AA 

840  IF  EOF  < 1 )  THEN  CLOSE : GOTO  900 

830  INPUT  ttl ,A 

860  IF  A-99  GOTO  900 

S70  UPQK<T,TT>  >  A 

880  NEXT  TT 

890  NEXT  T 

900  FOR  Tut  TO  F3*l 

910  FOR  TT  -  1  TO  2 

920  IF  EOF  <  I  )  THEN  CLOSE:GOTO  980 

930  INPUT  #1  ,  A 

940  IF  A-99  GOTO  980 

930  UE3 ( T , TT )  »  A 

960  NEXT  TT 

970  NEXT  T 

980  FOR  T*  1  TO  F6+1 

990  FOR  TT  »  1  TO  2 

1000  IF  EOF i l )  THEN  CLOSE  GOTO  1060 

1010  INPUT  »1  ,  A 

1020  IF  A-99  GOTO  1060 

1030  UE6 I T , TT )  «  A 

1040  NEXT  TT 

1050  NEXT  T 

1060  FOR  T - 1  TO  F7 

1070  FOR  TT  »  1  TO  2 

1080  IK  EOF ( 1 )  THEN  CLOSE:GOTO  1140 

1090  INPUT  # 1 , A 

1100  IF  A-99  GOTO  1140 

1110  UE7  (  T  ,  TT  >  a  A 

1120  NEXT  TT 

1130  NEXT  T 

1140  HEM 

1150  LPRINT  "ID  NO  TIME  LEFT  SVC  CONTRACT  TIME  REMAINING" 

1160  LPRINT  "  IN  CO  '  IN  SERVICE" 

1170  LPRINT 

1180  LPRINT  "  FIRST  TERMERS  El  -  E4" 

1 1 90  FOR  1  =  1  TO  FT 

1200  IF  TS-"C"  OR  T4="o"  THEN  1230 
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1210  LPRINT  UPQR t I , 1 > ,UPQRC I , 2 ) , UPQR ( I ■ 3 ) , UPGR < 1 , 4) 

1220  GOTO  1240 

1230  LPHINT  UI>OK(  I  ,  1  )  ,  ,UPQR<  1  ,  2)  ,  UPOH  <  1  .  3) 

1240  NEXT  I 

1230  LPRINT: LPRINT : LPRINT  "  GRADE  E3" 

1260  FOR  I  -  1  TO  F3 

1270  LPHINT  UE3< I , 1 ) ,  UE3  < I , 2) 

1280  NEXT  I 

1290  LPHINT: LPHINT: LPHINT  "  GRADE  E6" 

1300  FOR  I  «  1  TO  F8 

1310  LPHINT  UEfl < I  ,  l  >  ,UE«< I , 2 > 

1320  NEXT  I 

1330  LPR I  NT : LPH I NT :  L  PR  I  NT  "  GRADE  E7“ 

1  340  FOR  I  «  1  TO  F7 

1330  LPRINT  UE7 (1,1), UE7 (1,2) 

1380  NEXT  I 

1370  LPRINT : LPR I  NT  "IF  YOU  WANT  TO  MAKE  CORRECTIONS  TO  "A*"  YOU  WILL  HAVE" 
1380  LPHINT  "EDIT  IT  IN  DOS." 

1390  LPRINT  “THE  FILE  WILL  LOOK  LIKE  THE  ONE  BELOW.  THE  99  IS  THE  END  OF" 
1400  LPRINT  "EACH  GRADE" 

1410  LPHINT 

1420  LPHINT  "4  INDICATES  NUMBER  OF  FIRST  TERMERS  El  -  E4" 

1430  LPRINT  "3  INDICATES  NUMBER  OF  E3i" 

1440  LPRINT  "3  INDICATES  NUMBER  OF  E6.“ 

1430  LPRINT  "4  INDICATES  NUMBER  OF  £7i" 

1460  LPRINT  “1  FIRST  HECORD" 

1470  LPRINT  "12  TIME  LEFT" 

1480  LPRINT  "1  INDICATES  ACCOMPANIED  OR  UNACCOMPANIED" 

1490  LPRINT  "21  INDICATES  THE;  TIME  REMAINING  IN  THE  UNIT" 

1300  LPRINT  "99  INDICATES  THE  END  OF  THE  GRADE  BEING  ENTERED" 

1310  CLOSE 
1320  CLS 

1330  LOCATE  10,10 

1340  PRINT  "DO  YOU  WANT  TO  CREATE  ANOTHER  UNIT  PROFILE  ? " 

1530  LOCATE  13,13 

1360  PRINT  "ENTER  *  Y  *  FOR  YES,  *  N  *  FOR  NO  “ 

1370  XS  « INPUT1  (  I > 

1580  IF  X  *  «  "  n  "  OH  X»="N"  THEN  1610 

1  590  IF  X  *  « " y "  OR  X 1  * " Y "  THEN  ERASE  UPQR , UE 5 , UE 5 , UE7  ELSE  1540 

1600  GOTO  10 
1610  CLS 

1620  LOCATE  10,10 

1630  PRINT  "DO  YOU  WANT  TO  RUN  THE  C-REM  MODEL  1 " 

1  640  LOCATE  13,15 

1630  PRINT  "ENTER  *  Y  *  FOR  YES,  *  N  *  FOR  NO." 

1  660  X  4  a  I NPUT  4 <  1  > 

1670  IF  x»a"n"  OH  X»="N“  THEN  1690 

1  680  IF  X  $  »  "  y  "  OR  XS»"Y"  THEN  RUN  "C-REM"  ELSE  1650 

1690  END 
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1  200  IF  T»a"C"  OR  TS^'o"  THEN  123  0 

1210  LPSINT  UPOR < I , 1 > , UPOR < I , 2 > , UPQR < l , 3 > , UPOR ( I , 4 > 

1220  GOTO  1240 

1  230  LPHINT  UPQR < I , 1 > , , UPQR < I , 2 > , UPOR < I , 3 > 

1240  NEXT  I 

1250  LPRINT: LPRINT: LPRINT  "  GRADE  E3" 

1250  FOR  I  .  1  TO  F5 

1270  LPHINT  UE5< 7 , i > ,UE3< I , 2) 

1280  NEXT  1 

1  290  LPRINT:  LPRINT  :  LPHINT  "  GRADE  E6" 

1300  FOR  I  .  1  TO  F6 

1310  LPRINT  UE6 < I , 1 > , UE6 ( t , 2 > 

1320  NEXT  I 

1330  LFR1NT  LfRINl  L  PR  I  NT  "  GRADE  E7" 

1340  FOR  I  =  1  TO  F7 

1350  LPRINT  UE7 (1,1), UE7 (1,2) 

1360  NEXT  1 

1370  L  PR  I  NT :  LPR  I  NT  "IF  YOU  WANT  TO  MAKE  CORRECTIONS  TO  " A i “  YOU  WILL  HAVE 
1380  LPR I  NT  “EDIT  IT  IN  DOS." 

1390  LPHINT  "THE  FILE  WILL  LOOK  LIKE  THE  ONE  BELOW,'  THE  99  IS  THE  END  OF" 
1400  LPHINT  "EACH  GRADE" 

1410  LPHINT 

1420  LPHINT  "4  INDICATES  NUMBER  OF  FIRST  TERMERS  El  -  E4" 

1  430  LPR I  NT  "3  INDICATES  NUMBER  OF  ESi" 

1440  LPHINT  "3  INDICATES  NUMBER  OF  E6e" 

1430  LPHINT  "4  INDICATES  NUMBER  OF  E?s" 

1460  LPHINT  "1  FIRST  RECORD" 

1470  LPRIMT  "12  TIME  LEFT" 

1400  LPR I  NT  "1  INDICATES  ACCOMPANIED  OR.  UNACCOMPANIED" 

1490  LPHINT  "21  INDICATES  THE  TIME  REMAINING  IN  THE  UNIT" 

1300  L  PR  I  NT  "99  INDICATES  THE  END  OF  THE  GRADE  BEING  ENTERED" 

1310  CLOSE 
1520  CLS 

1330  LOCATE  10,10 

1540  PRINT  "DO  YOU  WANT  TO  CREATE  ANOTHER  UNIT  PROFILE  »" 

1550  LOCATE  13,13 

1360  PRINT  "ENTER  *  Y  *  FOR  YES,  *  N  *  FOR  NO  " 

1570  XS-INPUTS ( 1 > 

1580  IF  X*»"n"  OR  XI -"N"  THEN  1610 

1590  IF  XJ."y"  OR  XSa"Y"  THEN  ERASE  UPOR , UE 5 , UE 6 , UE7  ELSE  1540 

1600  GOTO  10 
1610  CLS 

1620  LOCATE  10,10 

1.630  PRINT  "DO  YOU  WANT  TO  RUN  THE  C-REM  MODEL  >  “ 

1640  LOCATE  15,15 

1630  PRINT  "ENTER  «  Y  *  FOR  YES,  *  N  *  FOH  NO." 

1660  XS  = INPUTS ( 1 ) 

1  670  IF  XS-"n"  OR  X  S  a " N"  THEN  1690 

1680  IF  XWy"  OR  X  S . "  Y "  THEN  RUN  "C-REM"  ELSE  1650 

1690  END 
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1 0  HEM  999994999994999999999949999949994994994499999499)1 i*********** 

20  REM  9  4  4  9 

30  HEM  94  fonoom  ** 

40  HEM  **  ** 

30  GEM  444444499444444949494444944944499949444494449449949444999994 
60  HEM  **  *9 

70. HEM  99  this  li  t h «  oodi  far  the  forioor  modul*.  99 

80  HEM  99  99 

90  HEM  999949999949999994999499499949949999999999994999999499999999 
100  CLS 

110  DIM  ?OR< 123,2) 

120  DIM  STAT < 123,2) 

130  DIM  MON( 23 1 ) 

140  DIM  E3  <73 , 2  ) 

130  DIM  E6  <  30 , 2) 

130  DIM  E7  <30,2) 

170  DIM  ESS  <  230) 

180  DIM  ESS  <  230  ) 

190  DIM  E79  <  230) 

200  DIM  E3STAT < 1 2S) 

210  DIM  ECSTAT  < 1 23  ) 

220  DIM  E7STAT  <  123) 

230  PH  I  NT : PH 1MT : PH  I  NT : PR  I NT 

240  PRINT  "THE  DATA  THAT  YOU  INPUT  WILL  BE  AUTOMATICALLY  STORED  TO  A  FILE" 
250  PRINT 

260  PRINT  "THAT  YOU  NAME  SO  THAT  IT  CAN  BE  USED  AGAIN  IN  THE  FUTURE  " 

270  PHI  NT 

230  PRINT  "REMEMBER,  IF  YOU  USE  THE  SAME  FILE  NAME  AS  A  PREVIOUS  F I LE " ■ 

290  PHINT 

30U  PRINT  "THAT  YOU  INPUT,  THE  NEW  DATA  WILL  BE  SAVED  AND  THE  OLD  LOST." 

310  PRINT: PRINT : PRINT : PH  I NT : PR  I NT 

320  LINE  INPUT  "ENTER  THE  NAME  OF  THE  DATA  FILE  " ; OF » 

330  IF  DF *  » " "  THEN  320 
340  CLS : LOCATE  10,10 

350  PRINT  "IS  "DF»"  AN  EXISTING  FILE  OH  A  NEW  FILE  ?" 

360  LOCATE  13,  13:  PRINT  "ENTER  4  E  9  FOR  AN  EXISTING  OR  9  N  9  FOR  NEW  FILE  " 

370  CF  »  » INPUT  1  <  1  ) 

380  IF  CF  J  « " "  THEN  340 

390  IF  CF 4 ■ " E "  OR  CF»»"*"  THEN  410 

400  IF  CF»»"N"  OR  CFl»"n"  THEN  410  ELSE  340 

4  10  CLS : PR  I  NT . PRINT : PRINT : PR  I  NT :  PRINT : PR  I  NT 

420  PRINT  "ENTER  THE  TOE,  UNIT  DESCRIPTION  OR  BOTH  FOR  THE  TYPE  OF  UNIT  " 
430  PR  I  NT : PRINT 

440  LINE  INPUT  "YOU  WILL  INPUT  -  ";UD» 

450  IF  CFS»"N"  OR  CFJ»"n"  THEN  480 

460  IF  CF  >  a "  E "  OR  CF»-"«"  THEN  GOSUB  11310 

470  GOTO  7590 

480  CLS.PRINT 

490  INPUT  "ENTER  THE  TOTAL  1ST  TERMERS  IN  THE  UNIT  ";CP 
300  PRINT 

310  INPUT  "ENTER  THE  EXPECTED  PERCENTAGE  OF  VEL  SOLDIERS  " : VE 
520  PRINT 

530  IF  VE  »  0  GOTO  600 

340  VV»VE9.01 

530  VEL  »C I  NT ( CP9VV  > 

360  INPUT  "ENTER  THE  LENGTH  OF  A  VEL  CONTRACT  IN  MONTHS  " : VT 
370  PHINT 

380  IF  VEs i 00  THEN  TT » VT- 3 6 : GOTO  720 
590  GOTO  640 

600  INPUT  "ENTER  THE  EXPECTED  PERCENTAGE  OF  3  YR  ENLISTMENTS  " . Y3 
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610  YY- Y3* . o 1 

620  IF  Y3- 1 00  GOTO  660 

630  YR3«CINT<  <CP-VEL)«YY> 

640  YR4-CP-VEL-YR3 
660  PRINT 

660  PRINT  "THE  REMAINING  SOLDIERS  ARE  ASSUMED  TO  BE  4  YR  ENLISTEES." 

670  PRINT  "****»**■*»*•***»**• w***-****-****--***-*--*****-*********" 

600  PRINT 

690  PRINT  "ENTER  THE  EXPECTED  TRAINING,  LEAVE  AND  TRAVEL  TIME  IN  MONTHS" 

700  INPUT  "THAT  A  SOLDIER  WILL  HAVE  BEFORE  ARRIVING  AT  HIS  UNIT  »  i  TT 
710  PRINT 

720  INPUT  "ENTER  THE  PERCENTAGE  OF  EXPECTED  EXTENSIONS  AND  REUPS  FOR  PDA  “ i R E E 
730  RE-REE*. 01 
740  PRINT 

760  INPUT  “ENTER  THE  EXPECTED  PROMOTION  MONTH  TO  E5  “ i PT 
760  PRINT 

770  INPUT  "ENTER  THE  EXPECTED  MONTHLY  PROMOTION  PERCENTAGE  TO  EB  " \ PPP 
780  PP»PPP*.01 
790  PRINT 

000  INPUT  "ENTER  THE  EXPECTED  MONTHLY  ATTRITION  RATE  IN  PERCENT  “ ; AflR 
810  AR- ARR* . 0 1 
320  PRINT 

030  INPUT  "ENTER  THE  INTERVAL  FOR  1ST  TERMER  REPLACEMENTS  " ;RP 
840  PRINT 

0SO  PRINT  "ENTER  THE  MINIMUM  TIME  IN  MONTHS  THAT  A  SOLDIER  MUST  BE  IN  THE'* 

860  INPUT  "UNIT  TO  BE  ELIGIBLE  TO  BE  REASSIGNED  " ; REA 
970  PRINT 

880  PRINT  “ENTER  THE  MINIMUM  TIME  IN  MONTHS  THAT  A  SOLDIER  MUST  HAVE  REMAINING" 
890  INPUT  "IN  THE  SERVICE  TO  BE  REASSIGNED  “ iMREA 
900  PRINT 

910  INPUT  "ENTER  THE  EXPECTED  MONTHLY  PERCENTAGE  OF  REASSIGNMENTS  " i PPREA 
920  PREA-PPREA* .01 
930  CLS: LOCATE  10,  10 

940  PRINT  "DO  YOU  WANT  BATTALION  TOTALS  FOR  REPLACEMENTS  7" 

960  LOCATE  15. IS 

960  PRINT  “ENTER  *»  Y  «»  FOR  YES,**  N  **  FOR  NO." 

970  BN3  «  I NPUT3  <  1  ) 

900  IF  BN3  -  “N"  OR  BN3  ■  “n"  THEN  1060 

990  IF  BN3-  '*  Y  “  OR  BNB-^'V"  THEN  1000  ELSE  BEEP  :  GOTO  930 

1 000  CLS i PR  I  NT : PR  I  NT : PR  I  NT ! PR  I  NT i PR  I  NT 

1010  PRINT  "COMPANIES  WILL  START  UP  EVERY  12  MONTHS." 

1020  PR  I  NT*.  PR  I  NT:  PR  I  NT 

1030  PRINT  "ENTER  THE  NUMBER  OF  COMPANIES  IN  THE  BATTALION." 

1040  INPUT  "ENTER  EITHER  3,  4,  OR  S  " i COMP 
1050  IF  CCMP<3  OR  CC3MP>5  GOTO  1030 
1060  CLS 

1070  LOCATE  10,10 

1000  PRINT  "DO  YOU  WANT  TO  INPUT  NCO  DATA?" 

1090  LOCATE  15,15 

1100  PRINT  "ENTER  **  Y  **  FOR  YES,**  N  **  FOR  NO." 

1110  INS  »  INPUT3C1) 

1120  IF  I  N  3 - " N "  OR  IN3«“n"  THEN  1510 

1130  IF  I  N  3 » "  Y  '*  OR  !N3-"y"  THEN  1140  ELSE  BEEP  '-GOTO  1060 
1  140  CLS: PR  I  NT 

1150  INPUT  "ENTER  THE  NUMBER  OF  AUTHORIZED  ESS  ";E5 
1160  PRINT 

1170  INPUT  "ENTER  THE  EXPECTED  TOUR  LENGTH  FOR  AN  E5  IN  MONTHS  " :E5T 
1180  PR  I  NT 

1190  INPUT  “ENTER  THE  EXPECTED  MONTHLY  PERCENT  OF  ATTRITION  FOR  E5s  " j AR55 
1200  PR  I  NT: AR5-ARS5* .0 1 
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1210  INPUT  "ENTER  THE  EXPECTED  MONTHLY  PROMOTION  PERCENTAGE  OF  ESa  TO  E6  "(ESPP 
1220  PRINTtE5P-E5PP«.01 

1230  INPUT  "ENTER  THE  NUMBER  OF  AUTHORIZED  E6S  "iE6 
1240  PRINT 

1 250  INPUT  "ENTER  THE  EXPECTED  TOUR  LENGTH  FOR  AN  E6 ,  IN  MONTHS  " j  EOT 
1260  PRINT 

1270  INPUT  "ENTER  THE  EXPECTED  MONTHLY  PERCENT  OF  ATTRITION  FOR  £6s  " j AR66 
1280  PR  I  NT  iAR6«AR66*‘  .0  1 

1290  INPUT  "ENTER  THE  EXPECTED  MONTHLY  PROMOTION  PERCENTAGE  OF  E6(  TO  E7  "1E6PP 
1300  PRINTiE6P»E6PP*.01 

1310  INPUT  "ENTER  THE  NUMBER  OF  AUTHORIZED  E?9  "SE7 
1320  PRINT 

1330  INPUT  "ENTER  THE  EXPECTED  TOUR  LENGTH  FOR  AN  E7,  IN  MONTHS  "tE7T 
1340  PRINT 

13S0  INPUT  "ENTER  THE  EXPECTED  MONTHLY  PERCENT  OF  ATTRITION  FOR  E?»  " |AR77 
1360  AR7*AR77* . 0 1 i PR  I  NT 

1370  INPUT  "ENTER  THE  EXPECTED  MONTHLY  PROMOTION  PERCENTAGE  OF  E7a  TO  E8  "iE7PP 
1380  PR  I  NT : E7P«E7PlJ»  .  0  1 

1390  INPUT  "ENTER  THE  EXPECTED  PERCENT  OF  INITIAL  NCO  FILL  " I NFF i NF-NFF* . 0 1 
1400  SES-C INT(ES»NF) i 3E6-C I NT< E6*NF >  t SE7-C I NTC E7*NF > > PR  I  NT 

14  10  PRINT  "ENTER  THE  EXPECTED  PERCENT  OF  FILL  FOR  NCOS  DURING  THE  UN  IT' 3" 

1420  PRINT  "LIFETIME  FOR  s  " 

1430  PRINT 

1440  INPUT  »  E5s  "  .•  E5FF  i  EBF-E5FF  *  .  0  1 

1460  INPUT  "  E68  “iE6FFiE6F-E6FF«.01 

1460  INPUT  "  E7s  “ i E7FF I E7F »£7FF*.01 

1470  PRINT 

1480  INPUT  "ENTER  THE  MONTH  TO  START  NCO  REPLACEMENTS" i NRT 
1490  PRINT 

1500  INPUT  "ENTER  THE  INTERVAL  FOR  NCO  REPLACEMENTS,  IN  MONTHS" :NRP 
1510  CLSiPRINT 

1520  INPUT  "ENTER  THE  NUMBER  OF  MONTHS  TO  S IMULATE" ;MO 
1630  PRINT 

1540  INPUT  "HOW  MANY  REPET I T I ONS--A  MINIMUM  OF  30  ARE  REQU I  RED" I  REPS 
1550  CLSi LOCATE  10,10 

1560  PRINT  "DO  YOU  WANT  A  MONTHLY  L I  ST  I  NO  OF  UNIT  STRENGTH  7" 

1570  LOCATE  15,15 

1500  PRINT  "ENTER  «*  Y  **  FOR  YES,«*  N  **  FOR  NO." 

1590  AS. I NPUTS  <  1 ) 

1600  IF  A9«"N"  OR  A3«"ri"  THEN  1620 

1610  IF  A9»"Y“  OR  A9«"y"  THEN  1620  ELSE  BEEP  :  GOTO  1560 
1620  CLS i PR  I  NT ! PR  I  NT i PR  I  NT : PR  I  NT 

1630  PRINT  "DO  YOU  WANT  TO  USE  A  UNIT'S  PRESENT  PROFILE  THAT  YOU  " 

1640  PRINT 

1660  PR  I NT"CREATED  I N  A  F I LE  7  ENTER  »  Y  *  FOR  YES,  *  N  *  FOR  NO." 

1660  F»«  I  NPUT 9 < 1 ) 

1670  IF  F»  »  " N“  OR  F9  «  "n"  THEN  1710 

1680  IF  F9  »  "Y"  OR  F3  .  "V"  THEN  1690  ELSE  BEEP : GOTO  1620 

'690  CLS ■ PR  I  NT  s  PR  I  NT i L I NE  INPUT  "ENTER  THE  FILE  NAME  ":FF3 

1700  IF  FF9«"'*  THEN  BEEP  s  GOTO  1690 

1710  GOTO  7690 

1720  FOR  2  .  1  TO  REPS 

1730  REM“THIS  PROGRAM  IS  CURRENTLY  SET  UP  TOBE  COMPILED  IN  THE  BASIC  COMPILER" 
1740  REM" IN  ORDER  TO  RUN  THIS  PROGRAM  USING  THE  BASIC  INTERPRETER,  YOU  MUST" 
1750  REM "REMOVE  THE  REM  FROM  LINES  1830  -  1950.  YOU  MUST  THEN  REMOVE  THE  " 

1760  REM" REM  FROM  LINE  10980  AND  INSERT  REM  IN  LINE  10970." 

1770  REM" THE  PROGRAM  WILL  NOW  RUN.  HOWEVER,'  IF  YOU  yANT  TO  RECOMPILE" 

1780  REM"THE  PROGRAM,  YOU  MUST  REVERSE  THE  ABOVE  PROCESS." 

1790  ERASE  £5 
1800  ERASE  E6 
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1810  ERASE  E? 

1820  ERASE  POH 

1830  HEM  IF  Z>1  GOTO  1880 

1840  HEM  DIM  STAT(123,2> 

1830  HEM  DIM  MON( 231 > 

1880  REM  DIM  E3S1 230) 

1870  REM  DIM  E8S(230) 

1880  HEM  DIM  E7S<230> 

1880  REM  DIM  £3STAT<123> 

1900  REM  DIM  E6STAT(12S> 

1910  REM  DIM  E7STAT  < 1 *3  > 

1920  REM  DIM  FOR ( 123,2) 

1930  REM  DIM  ES<?5  ,  2) 

1940  REM  DIM  E8<30, 2) 

1930  HEM  DIM  £7(30,2) 

1980  RANDOMIZE  TIMER 
1970  TL03S-0 
1980  CDS 

1990  LOCATE  10,10 

2000  PRINT  "CURRENTLY  ON  REPETITION  "Z"  OF  “REPS"  REPETITIONS." 

2010  IF  F»  -  " Y "  OH  FI  ■  "y"  THEN  2240  ELSE  2020 

2020  FOR  I  -  0  TO  VEL-1 

2030  PQR  <  I  ,  1  ) » 1 

2040  POH  <  I , 2 ) «VT-TT 

2030  NEXT  I 

2080  FOB  A  *  VEL  TO  <  VEL  +  YH3- 1 > 

2070  FOR ( A , 1 ) -2 
2080  PQR  <  A , 2 ) « 38 -TT 
2090  NEXT  A 

2100  FOR  C-VEL+YR3  TO  CP-1 
2110  POH ( C , 1 )-3 
2120  POR  <  C , 2 ) *  4 8 -TT 
2130  NEXT  C 

3140  FOR  D  »  0  TO  SE3-1 
2130  ES ( D  ,  1  ) » 1  :E3(D,2)»E5T 
2180  NEXT  D 

2170  FOR  D  *  0  TO  3E6-1 
2180  E8 <D , 1 ) » 1 . E6 < D , 2 ) »E6T 
2190  NEXT  D 

2200  FOR  D  .  0  TO  SS7-1 

2210  E7(D,1)»1  E7 ( D , 2 ) »E7T 

2220  NEXT  D 

2230  GOTO  2630 

2240  REM  UNIT  INPUT  MODULE 

2230  IF  Z»1  GOTO  2310 

2260  OPEN  " I" , *  I , FF» 

2270  INPUT  # 1 , FT 
2230  INPUT  *1 ,FS 
2290  INPUT  »1 , F6 
2300  INPUT  #1 ,F7 
23  10  FOR  T>1  TO  FT  *  1 

2320  INPUT  »1 , A  , 

2330  IF  A  *  9  9  GOTO  2410 
2340  INPUT  81, SC 
2330  IF  A ■ 9 9  GOTO  2410 
2360  INPUT  »1 ,TIS 
2370  IF  Aa  9  9  GOTO  2410 

2380  IF  0C=36  THEN  PQR(T,1)  a  2  ELSE  PQRCT,l>=3 
2  390  POR  <  T  ,  2  )  =>SC-T  I  S 
2400  NEXT  T 
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2410  FOR  T-l  TO  FS  +  l 

2420  IF  EOF  < 1  )  THEN  CLOSE:GOTO  24  90 

2430  INPUT  #  1  ,  A 

2440  IF  A-9  9  GOTO  2490 

2430  INPUT  *  1  ,  A 

2400  IF  A-99  GOTO  2490 

2470  ES  <  T /  1 )  »  1  : E5  <  T , 2  >  -A 

2480  NEXT  T 

2490  FOR  T-l  TO  F6+1 

2300  IF  EOF ( 1 )  THEN  CLOSE : GOTO  2370 

2310  INPUT  «1 ,A 

2320  IF  A-99  GOTO  2370 

2330  INPUT  # 1 , A 

2340  IF  A-99  GOTO  2570 

2330  E6  <T ,  1 )  -  1:E6<T,2)-A 

2300  NEXT  T 

2570  FOR  T » 1  TO  F7+1 

2380  IF  EOF ( 1 )  THEN  CLOSE:GOTO  2030 
2390  INPUT  #1 , A 

2600  IF  A- 99  THEN  CLOSE:GOTO  2000 
2610  INPUT  #1 , A 

2620  IF  A-99  THEN  CLOSErGOTO  2650 

2030  E?<T,1)  -  1  : E7  <  T , 2  )  • A 

2040  NEXT  T 

2030  FOR  B-l  TO  MO 

2060  LOCATE  13,15 

2670  PRINT  "CURRENTLY  ON  MONTH  "3*’  OF  A  "MO"  MONTH  CYCLE." 

2680  VLOSS-O 

2690  Y3  LOSS- 0 

2700  Y4LOSS-0 

2710  E3L0SS-0 

2720  E0LO93-O 

2730  E7LOSS-0 

2740  HLOSS.O 

2730  VNUM-0 

2760  Y3NUM-0 

2770  Y4NUM-0 

2780  E3NUM-0 

2790  E6NUM-0 

2800  E7NUM-0 

2010  RNUM-0 

2820  FOR  J-0  TO  CP-1 

2830  IF  POR  <  J  ,  11-0  GOTO  3630 

2840  IF  PQR(J,l>»2  GOTO  3090 

2350  IF  POR  <  J ,  l  1 » 3  GOTO  3320 

2360  IF  POR  <  J ,  1 > -  1  0  GOTO  3550 

2370  PCJR  (J,  2 ) -PQR ( J ,  21-1 

2830  VVUM.VNUM+1 

2390  IF  POR 1 J , 21-0  THEN  GOSU8  6260  ELSE  GOTO  2910 
2900  GOTO  3630 

2910  IF  B  MOD  RP-0  THEN  2920  ELSE  2930 

2920  IF  POR ( J , 2 ) - < VT-TT-SEA  THEN  2930  ELSE  2980 

2 9 3 C  IF  POR ( J , 2 )  <MREA  GOTO  2980 

2940  RD  »RND 

2950  IF  RD  > PREA  GOTO  2930 

2960  GOSUS  8220 

2970  GOTO  3630 

2980  RD  »  RND 

2990  IF  RD  >  AR  GOTO  3020 

3000  GOSUB  0220 
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3010  OOTO  3630 

3020  IF  POR <  J  ,  2  )  >  VT-PT  OOTO  3630 

3030  RD  »  RND 

3040  IF  BD  >  PP  OOTO  3630 

3090  OOSUB  6220 

3060  IF  IN4a"N"  OH  IN»»l,n"  THEN  3630 

3070  OOSUB  6630 

3030  OOTO  3630 

3000  BEM  PQH  <  J , 1 > -2 

3100  PQR  (J,2)-POR  <J,2)-1 

3110  Y3NUM-Y3NUM* 1 

3120  IF  PQR  <  J , 2 ) « 0  THEN  OOSUB  6400  ELSE  OOTO  3140 
3130  OOTO  3630 

3140  IF  B  MOD  RPaO  THEN  3190  ELSE  3210 

3190  IF  POH ( J , 2 1 »  <  36 -TT-REA  THEN  3190  ELSE  3210 

3160  IF  POB ( J , 2 ) < MHEA  GOTO  3210 

3170  HD  aSNB 

3180  IF  RD1PREA  OOTO  3210 
3190  OOSUB  6360 
3200  GOTO  3630 
3210  RDaRND 

3220  IF  RD  >  AH  OOTO  3290 
3230  OOSUB  6360 
3240  GOTO  3630 

3250  IF  POR ( J , 2 )  >  36“ PT  OOTO  3630 

3260  HD- HMD 

3270  IF  RD  >  PP  OOTO  3630 
3280  OOSUB  6360 

3290  IF  I N  4  a 11 N "  OH  IN4a"n"  THEN  3630 

3300  OOSUB  8680 

3310  OOTO  3630 

3320  REM  POR  ( J , 1 ) a 3 

3330  POR  <  J , 2 ) a  PQB ( J ,  2 ) - l 

3340  Y4NUM-Y4NUM+ l 

3390  IF  POR  (J.21.0  THEN  GOSUB  6940  ELSE  GOTO  3370 
3360  GOTO  3630 

3370  IF  B  MOD  RPaO  THEN  3380  ELSE  3440 

3380  IF  POH (J, 2)a<48-TT-REA  THEN  3390  ELSE  3440 

3390  IF  PQR < J , 2 ) (MHEA  GOTO  3440 

3400  HD  »RND 

3410  IF  RD1PHEA  OOTO  3440 
3420  GOSUB  6900 
3430  GOTO  3630 
3440  RDaRND 

3490  IF  HD  >  AR  GOTO  34  80 
3460  GOSUB  6900 
3470  GOTO  3630 

3480  IF  FOR ( J ,  2 ) >  4  8 - PT  GOTO  3630 
3490  RDaRND 

3900  IF  HD  >  PP  OOTO  3630 
3910  GOSUB  6900 

3920  IF  IN4a"N"  OR  INla"n"  THEN  3630 

3530  GOSUB  6680 

3540  GOTO  3630 

35  50  POR <  J  ,  2  > - POR  <  J , 2 ) -  1 

3560  RNUM-RNUM+ 1 

3570  IF  POH(J,2)aO  THEN  GOSUB  6640GOTO  3630 
3930  RDaRND 

3590  IF  RD  >  PP  GOTO  3630 
3600  GOSUB  6640 
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3610  IF  I N»  a "N"  08  INJa-'n"  THEN  3630 
3620  GOSUB  6680 
3630  NEXT  3 

3640  TL09S-TLOS3+VLOSS+Y3LOSS+Y4LOSS+RLOSS 

3630  UST8-VNUM+Y3NUM+Y4NUM+RNUM 

3660  ILOSSaCP-USTH 

3670  IF  8  MOO  HPaO  THEN  0»B/8P 

3660  IF  B  MOD  RP-0  THEN  I L- I  LOSS  *  I  LOSS 

3690  IF  B  MOD  HP-0  THEN  STAT < 0 ,  1  ) -STAT < 0 ,  1 )  +  I  LOSS 

3700  IF  B  MOD  HP-0  THEN  STAT < Q , 2 > -ST AT < Q , 2 >  +  I L :  I  LOSS . 0 

3710  IF  B  MOD  HP  -0  THEN  GOSUB  6730 

3720  IF  B  >230  GOTO  3740 

3730  MON <  B )  -MON < B )  +  I  LOSS 

3740  IF  IN»-"N"  08  IN4-"n'*  THEN  4260 

3730  FOB  K - 0  TO  75 

3  7  60  IF  E  5  <  X  .  1  ) - 0  GOTO  39  10 

3770  E3NUM-E3NUM+ 1  : E3  <  K , 2  > -E3  <  X  ,  2  >  -  1 

3780  IF  E 3  <  K , 2  > • 0  THEN  GOSUB  6970  ELSE  3800 

3790  GOTO  3910 

3800  HD-HND 

3310  IF  HD  >  A8S  GOTO  3830 
3820  GOSUB  7020:GOTO  3910 
3830  KDaUND 

3840  IF  HD1ESP  GOTO  3910 

3830  FOR  A-0  TO  30 

3860  IF  E 6  <  A  >  1 ) >  0  GOTO  3900 

3870  E6 ( A, 1 ) .1 : E6 ( A, 2) «E3 <X , 2) +1 

3880  E3NUM-E3NUM-I : E3 <K , l >-0 

3890  GOTO  3910 

3900  NEXT  A 

3910  NEXT  K 

3920  FOB  LaO  TO  SO 

3930  IF  E6 ( L , 1 ) aO  GOTO  4080 

3  940  E6NUM-E6NUM+1  ; E6 ( L , 2 ) »E6  <  L , 2  > -1 

3950  IF  E6(L,2)-0  THEN  GOSUB  7060  ELSE  3970 

3960  GOTO  4080 

3970  HD-HND 

3980  IF  HD)AH6  GOTO  4000 
3990  GOSUB  7060 : GOTO  4080 
4000  HD-RND 

4010  IF  HD1E6P  GOTO  4080 

4020  FOB  A-0  TO  30 

4030  IF  E7  <  A ,  1  )  >  0  GOTO  4070 

4040  E7< A ,  1  ) ■ 1  : E7 < A , 2 ) -E6 < L ,  2)  +  1 

4050  E6NUM-E6NUM- 1  :  E6 < L  ,  1  ) -0 

4060  GOTO  4080 

4070  NEXT  A 

4080  NEXT  L 

4090  FOR  M-0  TO  30 

4100  IF  E7(M,l)aO  GOTO  4200 

4110  E7NUM-E7NUM+ 1  E?(M,2>-E7(M,2>-1 

4120  IF  E7<M,2)-0  THEN  GOSUB  7100  ELSE  4140 

4 130  GOTO  4200 

4140  HD-RND 

4150  IF  RD  >  AR7  GOTO  4170 
4160  GOSUB  7100: GOTO  4200 
4170  HD-HND 

4130  IF  RD1E7P  GOTO  4200 
4190  E7NUM-E7NUM- 1 : E7 (M, 1 ) -0 
4200  NEXT  M 
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4210  IF  8  MOD  NRPaO  THEN  GOSUB  7140 

4220  IF  B  >  2  S  0  0070  4260 

4230  E5S<B)«E3S<B>+ESNUM 

4240  E6S<B)aE6S(B)+E6N UM 

4230  E73(B>»E79<B) +E7NUM 

4260  NEXT  8 

4270  IF  2-HEPS  THEN  OOTO  4280  ELSE  GOTO  6160 
4280  C-RP 

4290  CL3 : BEEP: LOCATE  3,10 

4300  PRINT  11  PH  I  NT  I  NO  COMPANY  FIHST  TERMER  COHORT  REPLACEMENT  PACKAGES" 
4310  FOR  T«1  TO  MO/SP 

4320  Va < Z*STAT(T, 2 >-STAT<T ,  1 >  2 > / < 2  * < 2 -  1  > > 

4330  Cl  -  < 1 , 643* ( SQR < V > > ) / SOR ( Z > 

4340  AVE  -  STAT  <  T ,  1)  /Z 

4330  LWBND  .  AVE  -  Cl 

4360  UPBND  «  AVE  +  Cl 

4370  PSTR»<<CP-CINT<AVE> ) /CP) *100 

4380  CA-CINT(AVE) 

4390  LPH1NT  USING  "#»•“ ;C; 

4400  LFRINT  ,  ; 

44)0  LPRINT  USING  "###  "  ;  CA  i 

4420  LPRINT  "  ; 

4430  LPRINT  USING"###.#  LWBND ; UPBND ; SOR < V )/ SOR ( Z >; PSTR 

4440  CaC ♦ RP 
4430  NEXT  T 

4460  IF  I N  4  a " N"  OR  IN»."n"  THEN  4720 
4470  CLS : LOCATE  3,10 

4480  PRINT  "PRINTING  MINIMUM  NCO  STRENGTH  BEFORE  REPLACEMENTS" 


4490 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4570 
4580 
4390 
4600 
46  1  0 
4620 
4630 
4640 
4630 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 
4750 
4760 
4770 


LPHINT  UHH» (12) 

LPRINT  3 PC  <  3  > " M 1 N I MUM  NCO  STRENGTH  BEFORE  REPLACEMENTS" 

LPRINT  3 PC  <  3  >  " - -" 

LPRINT 

LPRINT  "MONTH",  "E3  STR",“E6  STR"."E7  STR" 

LPRINT 

CC.NRP 

FOR  T0«1  TO  MO/NHP 
AV3  aC  I  NT  (  E  3  ST  AT  (  TO  )  /  Z  > 

AV6aC I NT (E6STAT(TO> / Z ) 

AV7aCINT ( E7ST AT  <  TO  > / 2 ) 

IF  AV3  >  E3  THEN  TT 1 « 

IF  AV6  >  E6  THEN  T64- 
IF  A V7  >  E7  THEN  T7»- 


"TT» ; : LPRINT 
"T6» ; : LPRINT 
"T7» 


"*" 

ELSE  TT  9  a 

"**• 

ELSE  T6Sa 

"*" 

ELSE  T7(a 

CC  ; 

LPRINT  ,  ; 

AV5 

:LPRINT  " 

AV6 

.LPRINT  " 

AV7 

(LPRINT  " 

LPRINT  USING  "###" 

LPHINT  USING  "###" 

LPRINT  USING  "###" 

LPRINT  USING  "###" 

CCaCC+NRP 
NEXT  TO 
LPRINT 
LPRINT 

LPRINT  “*  -  INDICATES  OVERSTRENGTH" 

IF  A  $  a " N"  OR  A*  a  " n "  THEN  3060 

IF  MO  >  230  THEN  MOOa  250  ELSE  MOOaMO 

CLS ; LOCATE  3,10 

PRINT  "PRINTING  MONTHLY  UNIT  STRENGTH  SY  GRADE" 
LPRINT  CHR  S (  1 2 ) 

LPHINT  SPC < 20 ) "MONTHLY  UNIT  STRENGTH  BY  GRADE" 


4780  LPRINT  SPC<20)" - " 

4790  LPRINT 

4800  LPRINT  "MONTH"  TAB(I2)  "El-4"  TAB<24)  "E5l"  TAB(36>  "E6S"  TABC48) 


"  E  7  s 
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4810  LPRINT  T  AB  <  5  6)  "%  UNIT  STR/NCO  STR  " 

4820  LPRINT 

4830  FOR  0»1  TO  MOO 

4840  AV-MONIQ) /Z : US»CP-CINT< AV> 

4850  E5NU-CINT<ESS <Q> /Z> 

4880  E6NU-C I  NT ( EOS  <  0  > / Z  > 

4870  E7NU-CINT<E7Si'Q)  / Z  5 
4380  TST-CP+E3+E6+E7 

4  8  90  TS»US+E3NUaE6NU+E7NU ; PPT« ( TS / TST >  *  1 0  0 
4900  IF  1 1 N  4  a 11 N"  OR  INt«"n“  THEN  4960 
4910  NST-E3+E6+E7 

4  9  20  NS-E3NU  +  E6NU  +  E7NU : NT- < NS /N3T > *  1 00 
4930  IF  E3NU  >  E3  THEN  TT4-"*"  ELSE  TT  4  - 11  11 

4940  IF  E8NU1E6  THEN  T64-1**"  ELSE  T64."  “ 

4930  IF  E7NU  >  E7  THEN  T74-"*"  ELSE  T74-"  ■■ 

4  960  L PR  I  NT  US  I  NO  ■*  44 •  44  ;  O  j 

4970  LPRINT  TAB  (12)  US  TAB<24)  E3NU""TT4  TABOO  E6NU""T6«; 

4980  LPRINT  TAB<48>  E7NU""T7$  TAB<60); 

4990  LPRINT  USING  "#•«.#"; PPT i 

3000  LPHINT  "  /  "i 

3010  LPRINT  USING  NT 

3020  NEXT  0 

3030  LPRINT 

3040  LPRINT 

3030  LPHINT  "*  -----  INDICATES  OVERSTRENGTH" 

3060  IF  BN$-"N"  OH  BN4-"n"  THEN  6170 
3070  IF  RP-3  THEN  3080  ELSE  GOTO  3090 
3080  AA-4 : BB-8 : CC- l 2 : DD-16 : GOTO  3130 
3090  IF  BP-4  THEN  3100  ELSE  GOTO  3110 
3100  AA-3 :BB-6;CC-9:DD«12: GOTO  3130 
3110  IF  HP. 6  THEN  3140  ELSE  GOTO  3120 

3120  LPHINT  “BATTALION  STRENGTHS  UNABLE  TO  BE  CALCULATED  FOR ■  ROTAT I  ON .  " 

3130  GOTO  6170 

3140  AA-2 : SB-4 : CC-6 : DD-8 

3150  LPRINT  CHR4 (12) 

3 160  CLS : LOCATE  3,10 

3170  PRINT  "PRINTING  BATTALION  FIRST  TERMER  COHORT  REPLACEMENT  PACKAGES" 

3180  LPRINT  SPC (  1 0 ) "BATTAL ION  FIRST  TERMER  COHORT  REPLACEMENT  PACKAGES" 

3190  LPRINT  SPCtlO)" - ":LPRINT 

3200  LPRINT  TAB<22)  "90%  CONFIDENCE  INTERVAL" 

5210  LPRINT  "MONTH"  TAB  <  8 )  "CO"  TABC12)  " PKG  SIZE"  TAB124)  "LOWER  0", 

5220  LPRINT  TAB<36)  "UPPER  B"  TA0<48>  "STD  DEV"  TAB139)  "%  UNIT  STR“ 

3230  LPRINT 
5240  C-RP 

3230  CA-0 : ACA-0 : 3CA-0 :CCA-0 : DCA-0 
5260  FOR  T» 1  TO  MO/RP 

5270  V- <  Z*STAT(T  ,  2  > -3TAT  (  T  ,  1  2>/<Z*<Z-l>> 

5280  Cl  >  < 1 . 643* ( SOR ( V) ) ) /SQR < Z > 

5290  AVE  -  STATIT , 1  )  /  2 

3300  LWBND  -  AVE  -  Cl 

3310  UPBND  -  AVE  +  Cl 

5320  PSTR - < (CP-CINT< AVE) ) 1C?) *100 

3330  CA-CINT(AVE)  * 

3340  IF  T  <  AA  GOTO  3720 
3330  ZA-T-AA+1 

3360  VA»< 2*STAT< ZA , 2 ) -STAT< ZA , 1 )  2>/<Z*<Z-t>> 

3370  AC  I  -  < 1 . 643* < SQR < VA > > > /SQR < Z > 

3380  AAVE  a  STAT<ZA,1)/Z 
3390  LWA  =  AAVE  -  AC  I 
5400  UFA  =  AAVE  +  AC  I 
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3410  PS  A»  ( ( CP-C I  NT ( AAVE )  ) /CP) * 10Q 
3420  AC  A  aC 1  NT ( AAVE ) 

3430  IF  T  <  BB  GOTO  3720 
3440  B  Z AaT -BB+  1 

3450  V8a(Z*STAT(BZA, 2>-STAT(BZA, 1 >  2)/(Z*(Z-l>) 

3460  BCI  a  < 1 . 645* <9QR( VB> > ) /SQR< Z > 

3470  BAVE  -  STAT BZA  ,  1  >  /  Z 

3480  LWB  a  BAVE  -  BCI 

3490  UPB  »  BAVE  +  BCI 

3300  P8B»< (CP -Cl  NT (BAVE) ) /CP) t 100 

33  10  BCA»C I  NT ( BAVE ) 

5320  IF  COMP  »  3  GOTO  3720 
5330  IF  T  <  CC  GOTO  5720 
3340  CZaT-CC+l 

3330  VVC»(Z*STAT(CZ, 2)-STAT<CZ, 1 )  2>/(Z*(Z-l>> 

3360  CCI  a  ( I . 645* (SQR( VVC > ) ) /SOR (Z) 

3570  CAVE  -  BTATtCZ.D/Z 

3380  LWC  a  CAVE  -  CCI 

3390  UPC  a  CAVE  4  CCI 

3  6  00  PBCa{ < CP -Cl  NT (CAVE)  ) /CP) *100 

3610  CCA-CINT (CAVE) 

3620  IF  COMP-  4  GOTO  3720 
3630  IF  T  <  DD  GOTO  3720 
5640  DZ-T-DD+l 

3630  VD« ( Z*STAT ( DZ , 2 ) -STAT  <  DZ ,  1  )  2>/<Z*(Z-l>> 

3600  DC  I  -  <  1  643*(SOH(VD)  )  ) /SOR(Z) 

3670  DAVE  a  STAT(DZ,1)/Z 

36  80  LWD  a  DAVE  -  DC  I 

3690  UPD  a  DAVE  +  DC  I 

5  7  00  PSD  a (  (CP-C I  NT (DAVE)  ) /CP) *100 

3710  DCAaC I  NT ( DAVE ) 

3720  LPRINT  U3ING  "*66";C) 

5730  LPRINT  TAB  (  8  )  ''A"  TAB  (  1  3  )  ; 

5740  DPR  I  NT  USING  CA  ; 

5730  LPRINT  TAB  <  24 ) 

3760  LPRINT  USING  "444.4";  LWBND ;  : LPR I  NT  TAB (  36  >  ; 

3770  LPRINT  USING  " 6 4 4  4 "  ; UPBND ;  : LPR I  NT  TAB<48); 

3780  LPHINT  USING  *'  •  4  *  .  *  "  ;  SOS  (  V  )  /  SOR  (  Z  )  ;  :  LPR  I  NT  TAB(60); 

3790  LPRINT  USING  "444  4";PSTH 

3800  IF  T ( AA  GOTO  6100 

3810  LPRINT  TAB ( 8 )  “B"  TAB(13); 

3820  LPRINT  USING  “ 4 4 » “ ; ACA ;  : LPR I  NT  TAB(24), 

3330  LPRINT  USING  "444.4"; LtfA LPR I  NT  TAB(36), 

5840  LPRINT  USING  "  4 4 4  .  4 "  ;  UPA ;  : LPR 1  NT  TAB(48> 

3830  LPRINT  USING  "444.4"; SOR < V A )/ SOR ( Z ), :  LPRINT  TAB(60>; 

5860  LPRINT  USING  "444.4“;PSA 

3870  IF  T <  BB  GOTO  6100 

5880  LPRINT  TAB ( 8  )  "C"  TAB(13), 

5390  LPRINT  USING  "*##"; BCA i :  LPRINT  TAB(24), 

5900  LPRINT  USING  "444.4";  LWB  ;  :  LPRINT  TABi36); 

5910  LPRINT  USING  "  4  49  .  *  "  ;  UP  B  ;  :  L  PR  I  NT  TAB C 48 ) ; 

5920  LPRINT  USING  " 444  . 4 " ; SOR ( VB  )  / SOR ( Z >  ;  :  LPRINT  TAB(60>, 

3930  LPHINT  USING  "4#4.4";PSB 

5940  IF  COMP  a  3  GOTO  6100 

5950  IF  T(CC  GOTO  6100 

5960  LPHINT  TAB ( 3 )  "D"  TAB ( 1 3 ) : 

5970  LPRINT  USING  "444";CCA,:  LPRINT  TAB(24); 

5980  LPRINT  USING  "•46.6"; LWC ; :  LPRINT  TAB(36>; 

3990  LPRINT  USING  " 4 4 4 . 4 " ; UPC ; .  LPRINT  TAB(48>; 

6000  LPRINT  USING  "  4  4#  .  It  "  ;  SOR  <  VVC  )  /  SQR  (  Z  )  ,  LPRINT  TAB(0O); 
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6010  LPRINT  USING  "###.#";PSC 
6020  IF  COMP* 4  GOTO  6100 
6030  IF  T  <  DD  GOTO  6100 
6040  LPRINT  TAB I 8 )  "E"  TAB<13); 

6030  LPRINT  USINO  " « # # " ; DC A : :  LPRINT  TA8I24): 

6060  LPRINT  USING  "  « » #  .  • " i LWD ;  : L PR  I  NT  TABI36); 

6070  LPRINT  USING  "»##.»"  :  UPD i  : LPR I  NT  TABI48); 

6080  LPRINT  USING  "*#».#•*;  3QR  I VD  W  SQR  I  Z  )  j  :  L  PR  I  NT  TABI60); 
6090  LPRINT  USING  "###.#"  ;  PSD 
6100  IF  T  <  AA  GOTO  6130 

6110  LPRINT  TAB (13)" - LPRINT  TAB! 13); 

6120  LPRINT  USING  " # • # " ; C A+ AC A* BCA +CCA ♦ DC A 

6130  LPRINT 

6140  C*C+RP 

6130  NEXT  T 

6160  NEXT  2 

6170  LPRINT 

6  100  LPRINT  DATE  1  , T I ME  1 
6140  GOTO  7410 
6200  HUN  "LOGO" 

6210  END 

6220  VLOSS-VLOSS+1 
6230  PORI J, 1 >*0 
6240  VNUM-VNUM-t 
6230  HETURN 
6260  HD*RND 

6270  IF  RD>RE  GOTO  6320 

6280  POR< 3 , 2 ) » 1 2 

6290  POR ( J , 1 )»10 

6300  KNUM-RNUM+1 

6310  GOTO  6330 

6320  POR  <  J ,  1  )  *0 

6330  VNUM»VMUM-t 

6340  VLOSSWLOSS+  1 

6350  RETURN 

6360  Y3LOSS-Y3LOS9+  1 

6370  POR  ( J , 1 ) *0 

6380  Y3NUM.Y3NUM- 1 

6390  RETURN 

6400  RD»RND 

6410  IF  RD ) HE  GOTO  6460 

6420  POR  <  J , 2 ) *  1 2 

6430  POR ( J , 1 ) » l 0 

6440  HNUM»RNUMf 1 

6430  GOTO  6470 

6460  POR  < J ,  1  ) *0 

6470  Y3NUM»Y3NUM- 1 

6480  Y3LOSS.Y3LOSS+ 1 

6490  RETURN 

6300  Y4LOSS* Y4LOSS+ 1 

6510  Y4NUM-Y4NUM- 1 

6520  PORI J ,  1  >  *0 

6530  RETURN 

6540  RDaRND 

6550  IF  RD ) RE  GOTO  5600 
6560  PORI J , 2 ) *1 2 
6  5  70  POR ( J ,  1  ) *  1 0 
6580  RNUM=.HNUM*1 
6590  GOTO  6610 
6600  POR I J , 1)^0 
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6610  Y4NUM-Y4NUM- l 

6620  Y4LOSS-Y 4LOSS+ 1 

6630  RETURN 

6640  RUOSS -RLOSS  +  1 

6630  RNUM-RNUM-1 

6660  PQR  <  J , 1 1 >0 

6670  RETURN 

6680  FOR  K-0  TO  73 

6600  IF  E3<X,1)>0  GOTO  6730 

6700  E3(K ,  t  >»2 

6710  E3<K, 2 ) - FOB  <  J , 2)»1 

6720  OOTO  6740 

6730  NEXT  K 

6740  RETURN 

6730  CNUM-0 

6760  FOR  X«0  TO  CP-1 

6770  IF  PQR  <  K ,  1  )  >  0  OOTO  6930 

6730  IF  VE  -  0  GOTO  6360 

67  9C  IF  VE  -  100  GOTO  6820 

6800  RD-HND 

6810  IF  HD  >  VV  OOTO  6S20 

6820  PQR  <K , 1 1-1 

6830  PQR  (  X  ,  2  )  - VT -TT 

6340  VNUM-VNUM+ 1 ; CNUM-CNUM+ 1 

6850  GOTO  6930 

6360  RD-RND 

6870  IF  HD  >  Y  Y  OOTO  6920 

6880  Y3NUM-Y3NUM+ 1 

6890  PQR  <  K .  1  ) -2 

6900  PQH  ( K ,  2  > “36-TT 

6910  GOTO  6930 

6920  Y4NUM-  Y 4NUM  ♦  1 

6930  POR ( X  i  1  )  -3 

6940  PQR  <  X , 2 ) a  4  8 - TT 

6930  NEXT  K 

6960  RETURN 

6970  IF  E3(K,1)»1  THEN  7020 
6980  RD-RND 

6990  IF  RD  >  HE  THEN  7020 

70  00  E5 ( X ,  1 ) -1  : E5  C  K , 2 ) -  1 2 
7010  GOTO  7030 

7020  E5NUM-E5NUM- l 
7030  E5  <  X  ,  1  ) -0 
7040  E5UOSS-E5LOSS+ 1 
7050  RETURN 
7060  E6NUM-S6NUM- 1 
7070  E6  <  L ,  1)  -0 
7080  E6LOS3-E6L.OSS+ 1 
7090  RETURN 
7100  E7NUM-E7NUM- 1 
7  110  E7  ( M  .  1  >  -  0 
7120  E7UOSS-E7LOSS+ 1 
7130  RETURN 
7  1  40  00- B / NR  P 

7 1  SO  E 5 ST AT ( QQ) -E5STAT <  QQ >  +  E5NUM: E3UOSS-0 
7  180  E 6 ST AT ( QQ )  - E  6  S  T AT ( QQ >  +E6NUM: E6UOSS-0 
7170  E7STAT ( QQ ) -E7STAT1QQ ) +E7NUM: E7UOSE-0 
7130  IF  B'.NRT  GOTO  7400 

7190  IF  E5NUM) =C I  NT < E 3 *ES F >  GOTO  7260 
7200  FOR  A- 0  TO  75 
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7210  IF  E3  <  A  ,  1  >  >  0  GOTO  7230 
7220  E5 ( A , 1 > » 1 : E3 ( A . 2 > -E5T 
7230  E3NUMsE5NUM+ 1 

7240  IF  E3NUM-CINT < ES*E3F>  GOTO  7260 
7230  NEXT  A 

7260  IF  E6NUM) »C I  NT (E64E6F)  GOTO  7330 

7270  FOR  A  »  0  TO  30 

7280  IF  E6 ( A ,  1  )  >  0  GOTO  7320 

7290  EA  <  I ■,  1>-1  :E6(A, 21-E6T 

7300  E6NUM-E6NUM+ 1 

7310  IF  E6NUM*C I  NT  <Efi*E6F)  GOTO  7330 
7320  NEXT  A 

7330  IF  E7NUM  >  »C I  NT  <  E7  *  E7F )  GOTO  7400 

7340  FOB  A  «  0  TO  30 

7330  IF  E  7  (  A  ,  1 )  >  0  GOTO  739  0 

7360  E7 ( A , 1 ) » 1 : E7 ( A , 2 ) »E7T 

7370  E7NUM-F.7NUM+  1 

7380  IF  E7NUM*C I  NT ( E7SE7F )  GOTO  7400 

7390  NEXT  A 

7400  RETURN 

7410  uLS : BEEF 

7420  LPRINT  CHR4  <  1  2  > 

7  4  30  PR  I  NT : PS  I  NT : PRINT : PRINT : BEEP 

7440  PRINT  "YOU  CAN  CONTINUE  THE  SESSION  AND  MAKE  MODIFICATIONS  TO" 

7450  PRINT  "ANY  OH  ALL  OF  THE  INPUT  VARIABLES." 

7460  LOCATE  10,10 

7470  PRINT  "TYPE  A  *Y*  TO  CONTINUE  THE  SESSION  OR  AN  *N*  TO  END  IT." 

7  18  0  Y 4 -INPUT 4 (  1  ) 

7490  IF  Y  4  «  "  Y  "  OR  Y4«"y"  THEN  7310 

7500  IF  Y4»"N"  OR  Y 4  « "n "  THEN  GOTO  1  1000  ELSE  BEEP : GOTO  7460 
7310  CLS 

7520  LOCATE  10,10 

7530  PRINT  "DO  YOU  WANT  TO  CHANGE  ANY  OR  ALL  OF  THE  VARIABLES  OR" 

7540  PRINT  "CHANGE  DATA  FILES?" 

7330  LOCATE  15,18 

7560  PRINT  "TYPE  A  *Y*  FOR  YES  AND  AN  #N#  FOR  NO." 

7570  Y  4  -  I NPOT  4  1  1  ) 

7380  IF  Y  4 ■ " Y "  OR  Y 4 » " y "  THEN  7600 

7590  IF  Y  4  -a "  N "  OR  Y4-"n"  THEN  10110  ELSE  BEEP  :  GOTO  7510 

7600  CLS : LOCATE  10,10 

7610  PRINT  "TYPE  *V*  TO  CHANGE  INDIVIDUAL  VARIABLES  " 

7620  LOCATE  12,10 

7630  PRINT  "OR  *D#  TO  CHANGE  THE  DATA  FILE  FOR  ALL  INPUT  VARIABLES" 

7640  Y4» INPUT  4 <  1  ) 

7650  IF  Y4-"V"  OR  Y4-"v"  THEN  7690 

7660  IF  Y  4  a " D "  OR  Y4«"d"  THEN  7670  ELSE  BEEP : GOTO  7600 

7670  LOCATE  1 5 , 1 C : L I NE  INPUT  "ENTER  THE  NAME  OF  THE  DATA  FILE  " ; DF 4 

7680  GOTO  340 

7690  CLS 

7700  PR  1  NT 

7710  PRINT  "A — THE  TOTAL  FIRST  TERMERS  III  THE  UNIT--  "CP 

7720  PRINT  " B  — THE  EXPECTED  PERCENTAGE  OF  VEL  SOLDIERS-- "VE 

7730  VV-VE* .  0 1  : VEL-C I  NT ( CP*VV ) 

7740  PRINT  "C — THE  LENGTH  OF  A  VEL  CONTRACT  IN  MONTHS--"VT 

7750  PRINT  "D — THE  EXPECTED  PERCENTAGE  OF  3  YH  EN L I STMENTS - - " Y 3 

7750  PRINT  " E--THE  EXPECTED  TRAINING,  LEAVE  AND  TRAVEL  TIME  IN  MONTHS" 

7770  PRINT  "  THAT  A  SOLDIER  WILL  HAVE  BEFORE  ARRIVING  AT  HIS  UNIT--"TT 

7730  PRINT  " F - -THE  PERCENTAGE  OF  EXPECTED  REUPS  FOR  PDA- "REE 

7790  HE  =  SEE* . 0 1 

7300  PRINT  "G--THE  EXPECTED  PROMOTION  MONTH  TO  ES--"PT 
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7010  PRINT  "H“- THE  EXPECTED  MONTHLY  PROMOTION  PERCENTAGE  TO  E6--"PPP 
7020  PP.PPP«,01 

7830  PRINT  " I  - -THE  EXPECTED  MONTHLY  ATTRITION  RATE  IN  PERCENT--" ARP 
7040  AR-ARR-.01 

7860  PRINT  “ J--THE  INTERVAL  FOR  1ST  TERMER  REPLACEMENTS,  IN  MONTHS-- "RP 
7060  PRINT 

7870  PRINT  "•»*  IF  YOU  WISH  TO  DISCONTINUE  THE  SESSION,  PRESS  ENTER 
7680  PRINT 

7090  PRINT  “YOU  MAY  CHANGE  ANY  OR  ALL  OF  THE  VARIABLES.  ENTER  THE  LETTER  OF" 
7900  PRINT  "THE  VARIABLE  YOU  WANT  TO  CHANGE.  WHEN  YOU  HAVE  FINISHED  MAKING" 
7910  PRINT  “THE  CHANGES  TYPE  IN  AN  *  X  » . “ 

7920  PRINT 
7930  PRINT 
'.'940  V9-  I  NPUT9  <  1  > 

7950  IF  V9»“X"  OR  V9-"x“  THEN  0250 

7960  IF  VO- “A"  OR  V9-"a"  THEN  8000 

7970  IF  V9- “8“  OR  V9-"b'  THEN  8090 

7980  IF  V6«“C“  OR  V9-"C"  THEN  8110 

7990  IF  V 9 ■ " 0 "  OR  V9-"0"  THEN  8  130 

8000  IF  V9- " E 11  OR  VS-"e“  THEN  8150 

8010  IF  V 9 - " F "  OR  V9»"f“  THEN  8180 

8020  IF  V9-"G"  CR  V9-"g'  THEN  S200 

8030  IF  V9- " H"  OR  V9»"tV'  THEN  8210 

0040  IF  V 9 - “ I "  OR  V 9 - " i "  THEN  8220 
8060  IF  V 9 « " J "  OR  V9«"J“  THEN  8240 

8060  IF  V9  > " J "  OR  V  9  >  “  j  "  THEN  7690 

8070  IF  V  9  >  " "  THEN  11000 

8080  INPUT  "A — ENTER  THE  TOTAL  1ST  TERMERS  IN  THE  UNIT  "(CP:GOTO  7690 
8090  INPUT  "B--ENTER  THE  EXPECTED  PERCENTAGE  OF  VEL  SOLD  I ERS-- " : VE 
8100  GOTO  7690 

8110  INPUT  "C--ENTER  THE  LENGTH  OF  A  VEL  CONTRACT  IN  MONTHS — " *VT 
8120  GOTO  7690 

8130  INPUT  "D — ENTER  THE  EXPECTED  PERCENTAGE  OF  3  YR  ENL I 3TMENTS— i Y3 
8140  GOTO  7690 

8150  PRINT  " E--ENTER  THE  EXPECTED  TRAINING,  LEAVE  ANO  TRAVEL  TIME  IN  MONTHS" 
8160  INPUT  "  THAT  A  SOLDIER  WILL  HAVE  BEFORE  ARRIVING  AT  H I S  UNIT";TT 
8170  GOTO  7690 

0  180  INPUT  " F - -ENTER  THE  PERCENTAGE  OF  EXPECTED  REUPS  FOR  PDA-" j  REE 
8190  GOTO  1690 

8200  INPUT  "G — ENTER  THE  EXPECTED  PROMOTION  MONTH  TO  E5"sPT!GOTO  7690 

8210  INPUT  " H- -ENTER  THE  EXPECTED  MONTHLY  PROMOTION  X  TO  E5";PPPiGOTO  7690 

8220  INPUT  "I --ENTER  THE  EXPECTED  MONTHLY  ATTRITION  RATE  IN  PERCENT" ; ARR 
8230  GOTO  7690 

8240  INPUT  " J  —  ENTER  THE  INTERVAL  FOR  REPLACEMENTS.  IN  MONTHS RP : GOTO  7690 
8250  CLS 
8260  PRINT 

8270  IF  A 9 « " N "  OR  A9-"n"  THEN  B9-"NO" 

8280  IF  A9- " Y"  OR  A9-"y"  THEN  B9-“YES" 

8290  IF  BN3- "N"  OR  BN9-"n"  THEN  BBN9»"N0" 

0300  ! F  BN9- “Y"  OR  BN9-"y"  THEN  0BN9-"YES“ 

0310  PRINT  "K — THE  MINIMUM  TIME  IN  MONTHS  THAT  A  SOLDIER" 

3320  PRINT  •'  MUST  SE  IN  THE  UNIT  TO  BE  ELIGIBLE  TO  BE  REmSS  I GNED  — "  REA 
0330  PRINT  " L--THE  MINIMUM  TIME  IN  MONTHS  THAT  A  SOLDIER" 

8340  PRINT  "  MUST  HAVE  REMAINING  IN  THE  SEPV I CE  TO  BE  REASSIGNED — "MREA 
0350  PRINT  "M — THE  EXPECTED  MONTHLY  PERCENTAGE  OF  RE ASS  I GNMENTS — " PPREA 
8360  PREA-PPREA* .01 

8370  PRINT  " N  —  THE  NUMBER  OF  MONTHS  TO  SIMULATE  —  "MO 

8380  PRINT  "0--NUM6ER  OF  REPETITIONS — “REPS 

8390  PRINT  "P- -MONTHLY  LISTING  OF  UNIT  STRENGTH —  "09 

8400  PRINT  “Q--L I  ST  I  NO  OF  BATTALION  TOTALS  FOR  REPLACEMENTS--  "8BN9 
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0410  IF  BN9  •  "N“  Ofl  8M9  ■  "n“  THEN  8430 

8420  PRINT  -  THE  NUMBER  OF  COMPANIES  IN  THE  BATTALION  IS--  "COMP 
0430  PRINT 
8440  PRINT 

8460  PRINT  “YOU  MAY  CHANGE  ANY  OR  ALL  OF  THE  VARIABLES.  ENTER  THE  LETTER  OF" 
8460  PRINT  "THE  VARIABLE  YOU  WANT  TO  CHANGE.  WHEN  YOU  HAVE  FINISHED  MAKING" 

8470  PRINT  "THE  CHANGES  TYPE  IN  AN  «  X  *  . '* 

8480  PRINT 
8490  PRINT 
8600  V9* I NPUT9  < 1 ) 

8610  IF  V9»“ X"  OR  V9«"X"  THEN  0860 

8620  IF  V9*"K"  OR  V9*"k"  THEN  8610 

8630  IF  V9-I,L“  OR  V9»"l“  THEN  8640 

8640  IF  V9«"M"  OR  V9«"m"  THEN  8670 

8660  IF  V9-“N"  OR  V9-"n"  THEN  8690 

0860  IF  V9“"0“  OR  V9«“0“  THEN  0700 

8670  IF  V9»“P"  OR  V9-"p“  THEN  8710 

8880  IF  VS-'Q"  OR  V9-“q"  THEN  8760 

8690  IF  V9  > “Q"  OR  V9>"q"  THEN  8260 

8600  IF  V 9 > " "  THEN  8250 

8610  PRINT  “ K --ENTER  THE  MINIMUM  TIME  IN  MONTHS  THAT  A  SOLDIER" 

8620  INPUT  "  MUST  8E  IN  THE  UNIT  TO  BE  ELIGIBLE  TO  BE  REASS  I GNED  — " s REA 

8630  GOTO  8250 

8640  PRINT  "L— ENTER  THE  MINIMUM  TIME  IN  MONTHS  THAT  A  SOLDIER" 

8660  INPUT  11  MUST  HAVE  REMAINING  IN  THE  SERVICE  TO  BE  REASS  I QNED  — "  |  MREA 

8660  GOTO  8260 

8670  INPUT  "M— ENTER  THE  EXPECTED  MONTHLY  PERCENTAGE  OF  REASS  I GNMENTS-- " ; PPREA 
8680  GOTO  0280 

8690  INPUT  "N--ENTER  THE  NUMBER  OF  MONTHS  TO  3  I  MU LATE" I MO i GOTO  0250 

8700  INPUT  "0--HOW  MANY  REPET  I T I ONS" ; REPS i GOTO  8260 

8710  PRINT  "P--00  YOU  WANT  A  MONTHLY  LISTING  OF  UNIT  STRENGTH" 

8720  PRINT  "ENTER  **  Y  «*  FOR  YES.**  N  **  FOR  NO. " I A9 - I NPUT9 <  1 ) 

8730  IF  A 9 - " Y "  OR  A9«"y"  THEN  8760 

8740  IF  A9«“N"  OR  A9«"tV'  THEN  0780  ELSE  BEEP i GOTO  8710 

8750  GOTO  8250 

8760  PRINT  "Q — DO  YOU  WANT  BATTALION  TOTALS  FOR  REPLACEMENTS  7" 

0770  PRINT  "ENTER  ««  Y  **  FOR  YES,**  N  **  FOR  NO." 

8780  0N9  «  I NPUT9  <  1 > 

8790  IF  BN9  «  "N"  OR  BN9  «  "n“  THEN  8250 

0800  IF  BN9« "Y"  OR  8N9»"V''  THEN  0010  ELSE  3EEP :  GOTO  8760 
80  10  PRINT  "ENTER  THE  NUMBER  OF  COMPANIES  IN  THE  B6TTAL I  ON . " 

8820  INPUT  "ENTER  EITHER  3.  4.  OR  5" I COMP 
8830  IF  COMP <3  OR  C0MP>5  GOTO  8810 
8840  GOTO  8250 

88S0  IF  CF9« "E”  OR  CF9-"6"  THEN  8930 

8860  CLS i LOCATE  IO.IOiPRINT  “DO  YOU  WANT  TO  INPUT  OR  CHANGE  NCO  DATA  ?" 

8870  LOCATE  16.15 

0880  PRINT  “ENTER  *»  Y  **  FOR  YES  OR  AN  «*  N  **  FOR  NO." 

8890  I  I N9  -  I NPUT9  < 1 > 

8900  IF  I  I N9 * " N"  OR  IIN9-"n"  THEN  9910 

8910  IF  I  I N9 » " Y “  OR  I  IN9.“y“  THEN  0920  ELSE  BEEPiCOTO  8860 
8920  IF  IN9»"N"  OR  IN9«"n"  AND  IIN9»"Y"  OR  IIN9-“y"  THEN  IN9-"Y" 

8930  CLS i PR  I  NT  “NCO  DATA  *** » «******»*■»**«■■*»■*■****»»»»**": PR  I  NT 

8940  PRINT  "A — ENTER  THE  NUMBER  OF  AUTHORIZED  ESS - "E5 

89S0  PRINT  "8--ENTER  THE  EXPECTED  TOUR  LENGTH  FOR  AN  E5 .  IN  MONTHS - "E5T 

8960  PRINT  "C--ENTER  THE  EXPECTED  MONTHLY  PERCENT  OF  ATTRITION  FOR  E5s - "AR55 

8970  PRINT  "D--ENTER  THE  EXPECTED  MONTHLY  PROMOTION'  X  OF  E53  TO  E6 - "EBPP 

8980  PRINT if.SP*ESPP*.01 

8990  PRINT  "E--ENTER  THE  NUMBER  OF  AUTHORIZED  C&3 - "E6 
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9000  PAINT  "F — ENTER  THE  EXPECTED  TOUR  LENGTH  FOR  AN  E6.  IN  MONTHS - "  E6T 

9010  PRINT  "©--ENTER  THE  EXPECTED  MONTHLY  PERCENT  OF  ATTRITION  FOR  E6S "AR66 

9020  PRINT  "H--ENTER  THE  EXPECTED  MONTHLY  PROMOTION  X  OF  E6s  TO  E7 - "E6PP 

9030  PRINTiE6P»E6PP«.01 

9040  PRINT  •'  I  --ENTER  THE  NUMBER  OF  AUTHORIZED  E7s---"E? 

9060  PRINT  "J— ENTER  THE  EXPECTED  TOUR  LENGTH  FOR  AN  E7,  IN  MONTHS - " E7T 

9060  PRINT  "K--ENTER  THE  EXPECTED  MONTHLY  PERCENT  OF  ATTRITION  FOR  E7s "AR77 

9070  PRINT  "L  — ENTER  THE  EXPECTED  MONTHLY  PROMOTION  X  OF  E7s  TO  E8 - “ E 7 P P 

9000  PRINTiE7P«E7PP«.01 
9090  PRINT 

9100  PRINT  "YOU  MAY  CHANGE  ANY  OR  ALL  OF  THE  VARIABLES.  ENTER  THE  LETTER  OF" 

9110  PRINT  "THE  VARIABLE  YOU  WANT  TO  CHANGE.  WHEN  YOU  HAVE  FINISHED  MAKING" 

9120  PRINT  "THE  CHANGES  TYPE  IN  AN  «  X 

9130  PRINT 

9140  P9«INPUT3<1> 

9160  IF  £6 >0  THEN  IN9*"Y" 

9160  IF  OR  P9»"x"  THEN  9460 

9170  IF  P9«"A"  OR  P 9 « “ a “  THEN  9310 

9 1  BO  IF  P9  “  "  tt "  OR  P9  “  "  D  "  THEN  9320 

9190  IF  P3»"C“  OR  P9«“c"  THEN  9330 

9200  IF  P9»"0"  OR  P9« "d"  THEN  9340 

9210  IF  P9*> "  E "  OR  P3-“e"  THEN  9360 

9220  IF  P9-”F"  OR  P9-" f"  THEN  9370 

9230  IF  P4-“G"  OR  P9*»"g"  THEN  9380 

9240  IF  P9»"H"  OR  P9«  “h"  THEN  9390 

9260  IF  PS*  " I "  OR  P9-"l"  THEN  9410 

9260  IF  P9'« " J “  OR  P9-“J"  THEN  9420 

9270  IF  P9-“K"  OR  P9«"k“  THEN  9430 

9200  IF  P9-"L"  OR  PS-*"  I"  THEN  9440 

9290  IF  P9> "L"  OR  P9)"l“  THEN  6930 

9300  IF  P 3 > " "  THEN  0930 

9310  INPUT  "ENTER  THE  NUMBER  OF  AUTHORIZED  E5s “ | E5 i GOTO  8930 

9320  INPUT  “ r NTER  THE  EXPECTED  TOUR  LENGTH  FOR  AN  E5..IN  MONTHS" ; E5T . GOTO  8930 
9330  INPUT  "ENTER  THE  EXPECTED  MONTHLY  X  OF  ATTRITION  FOR  E5s " ; AR56 t GOTO  8930 
9340  INPUT  "ENTER  THE  EXPECTED  MONTHLY  PROMOTION  PERCENTAGE  OF  £5a  TO  E6"i£5FP 
9360  GOTO  3930 

9360  INPUT  "ENTER  THE  NUMBER  OF  AUTHORIZED  E6s " ! E6 . GOTO  8930 

9370  INPUT  "ENTER  THE  EXPECTED  TOUR  LENGTH  FOR  AN  E6 ,  IN  MONTHS" ; E6T : GOTO  3930 

9380  INPUT  "ENTER  THE  EXPECTED  MONTHLY  X  OF  ATTRITION  FOR  £63 " ; AR66 : GOTO  8930 

9390  INPUT  "ENTER  THE  EXPECTED  MONTHLY  PROMOTION  PERCENTAGE  OF  E6s  TO  E?"iE6PP 
9400  GOTO  8930 

9410  INPUT  "ENTER  THE  NUMBER  OF  AUTHORIZED  E7s"iE7iGOTO  8930 

9420  INPUT  "ENTER  THE  EXPECTED  TOUR  LENGTH  FOR  AN  E7.  IN  MONTHS" ; E7T : GOTO  8930 

9430  INPUT  "ENTER  THE  EXPECTED  MONTHLY  X  OF  ATTRITION  FOR  E7s " ; AR77 s GOTO  8930 

9440  INPUT  "ENTER  THE  EXPECTED  MONTHLY  PROMOTION  PERCENTAGE  OF  E7s  TO  E8":E7PP 
9450  GOTO  8930 

9460  CLS  :  PR  I  NT  “NCO  DATA  ««»«» «■**«*«* »«»» «i* *»***»»**»»**•' i  PR  I  NT :  PR  I  NT 

.9470  PRINT  "M--ENTER  THE  EXPECTED  PERCENT  OF  INITIAL  NCO  F I LL“NFF  t  NF  «NFF* . 0 1 
9480  SE5aCINT<E5*NF) ; SE6-C I NT< E6»NF ) i SE7-C I NT< E?*NF > 

9490  PRINT 

9600  PRINT  "ENTER  THE  EXPECTED  PERCENT  OF  FILL  FOR  NCOS  DURING  THE  UNIT'S" 

9610  PRINT  "LIFETIME  FOR i " 

9520  PRINT 

9630  PRINT  "  N--E5S - "E5FF  :  E5FaE5FP*  .  01 

9640  PRINT  "  O — E6s  - " E6FF ; E 6F » E6FF * . 0 1 

9550  PRINT  "  P--E7s - "E7FF  E7F  »E'.’FF*  .  0  1 

9660  PRINT 

9570  PRINT  “Q--ENTSR  THE  MONTH  TO  START  NCO  REPLACEMENTS “ NRT 

9680  PRINT  " R- -ENTER  THE  INTERVAL  FOR  NCO  REPLACEMENTS ,  IN  MONTHS - "NRP 

9690  PRINT 
9600  PRINT 
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9610  PH ! NT  "YOU  MAY  CHANGE  ANY  OH  ALL  OF  THE  VARIABLES.  ENTER  THE  LETTER  OF" 
9620  PRINT  "THE  VARIABLE  YOU  WANT  TO  CHANGE.  WHEN  YOU  HAVE  FINISHED  MAKING" 

9630  PRINT  "THE  CHANGES  TYPE  IN  AN  *  X 

9640  PRINT 

9630  PRINT 

9660  P  4  » INPUT 4 <  1 > 

9670  IF  P  4  ■  "  X  "  OR  P4-"x"  THEN  9900 

9680  IF  P  4  * "M"  OH  P4-“m"  THEN  9770 

9690  IF  P 4 ■ "N"  OH  Pl»"n"  THEN  9780 
9700  IF  P 4 ■ “ 0 "  OH  Pl."0"  THEN  9810 
9710  IF  P  4  «■ "  P "  OH  P4»"p"  THEN  9840 

9720  IF  P  4  ■  "  Q  "  OH  P4»‘‘q"  THEN  9870 

9730  IF  P4-"H"  OH  P4«"r"  THEN  9880 
9740  IF  P  4  < "M"  OH  P4)"m"  THEN  9460 

9730  IF  P  4  > "8 "  OH  P4)"r"  THEN  9460 

9760  lr  P 4 ■ " "  THEN  9460 

9770  INPUT  "ENTEH  THE  EXPECTED  PERCENT  OF  INITIAL  NCO  F I L L " ; NFF : GOTO  9460 

9780  PHINT  "ENTEH  THE  EXPECTED  PERCENT  OF  FILL  FOB  NCO*  DURING  THE  UNIT'S" 

9790  PHINT  “LIFETIME  FOR:" 

9800  INPUT  "  E3*  ";E3FF:GOTO  9460 

9810  PRINT  “ENTEH  THE  EXPECTED  PERCENT  OF  FILL  FOR  NCO*  DURING  THE  UNIT'S" 

9820  PRINT  "LIFETIME  FOH : “ 

9830  INPUT  "  E6  * - “ ; E6FF : GOTO  9460 

9840  PRINT  "ENTEH  THE  EXPECTED  PEHCENT  OF  FILL  FOH  NCO*  DURING  THE  UNIT'S" 

9830  PRINT  "LIFETIME  FOR:" 

9860  INPUT  "  E7«  " ; E7FF : GOTO  9460 

9870  INPUT  "ENTEH  THE  NUMBER  OF  THE  MONTH  TO  START  NCO  F I LLS " ; NRT : GOTO  9460 

9880  INPUT  "ENTEH  THE  NUMBER  OF  THE  MONTH  FOR  NCO  REPLACEMENTS NRP 

9890  GOTO  9460 

9900  CLS : IF  NRP-0  GOTO  9880 

9010  CLS : LOCATE  10,  10 

9920  IF  F  4  » 11 N"  OR  F4«"n"  OH  F4-""  GOTO  9930 

9930  PHINT  "CURRENT  UNIT  FILE  THAT  HAS  BEEN  INPUTED  IS  " FF 4 " . " 

9940  GOTO  9980 

9930  PRINT  “DO  YOU  WANT  TO  INPUT  A  FILE  FOR  A  UNIT--4Y*  FOR  YES  *N*  FOP  NO  " 
9960  CCH4.INPUT4 ( 1 ) : IF  CCH4«"Y"  OH  CCH4»"y”  THEN  FI»"Y"  : GOTO  10080 
9970  IF  CCH4 • "V*  OR  CCH4-"n"  THEN  10030  ELSE  9910 
9980  LOCATE  13,13 

9990  PHINT  "ENTER  *  Y  *  TO  USE  THIS  FILE  OH  *  N  *  TO  CHANGE / DELETE  THE  FILE  " 
10000  CH4» [NPUT1 < 1 ) : IF  CH4-"Y"  OR  CH4«"y"  GOTO  101  10 
10010  IF  CH 4 ■ “ N“  OR  CH4»"n"  THEN  10020  ELSE  9910 

10020  CLS: PRINT  "ENTER  *  Y  *  TO  INPUT  A  NEW  FILE  OR  *  N  *  FOR  NO  FILE  " 

10030  F14-INPUT4 ( 1 1 

10040  IF  F 1 4 » "n "  OR  F14»"N"  THEN  10050  ELSE  10070 
10050  F  4  »  11 N " 

10060  GOTO  10110 

10070  IF  F 1 4 • " V "  OR  FI4»"y"  THEN  10080  ELSE  10020 

10080  PRINT : PRINT : LINE  INPUT  "ENTEH  THE  NAME  OF  THE  NEW  UNIT  INPUT  FILE  ";FFS 
10090  IF  FF 4 ■ " "  THEN  SEEP  :  GOTO  10080 
10  100  F  9  »  "  Y  “ 

10110  CLS  LOCATE  10,10 

10120  IF  CF>»"n"  OR  CF 9 ■ " N“  THEN  GOSUB  11110  ELSE  10150 
10130  CF 9 ■ " E" 

10140  GOTO  10240 

10130  PRINT  "THE  EXISTING  FILE  IS  "DFS  ",  DO  YOU  WANT  TO  SAVE  ANY  CHANGES  ", 
10160  PHINT  "TO  A  NEW  FILE  » " 

10)70  LOCATE  15, 15  PRINT  "ENTER  *S*  TO  SAVE  OR  *C*  TO  CONTINUE." 

10180  SS  9 » I NPUT  9(1):  IF  SS9»"c"  OR  SS9»"C"  THEN  1  0240  ELSE  10190 
10190  IF  SS9»"s“  OR  SS9="S’  THEN  10200  ELSE  10110 
10200  CLS  LOCATE  10,10 
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10210 
10220 
10230 
10240 
10250 
10260 
10270 
10260 
10290 
10340 
10310 
10320 
10330 
10340 
10350 
10360 
10370 
10360 
10390 
10400 
104  10 
10420 
10430 
10440 
10460 
10460 
10470 
10400 
10490 
10500 
10610 
10620 
10530 
10640 
10660 
10560 
10670 
10680 
10590 
10600 
10610 
10620 
10630 
10640 
10650 
10660 
10670 
10660 
10690 
10700 
10710 
10720 
10730 
10740 
10750 
10760 
10770 
10780 
10790 
1 0800 


LINE  INPUT  "ENTER  THE  NEW  FILE  NAME  ’*  i  DF  6 
IF  DF9-"“  GOTO  10200 
GOSUB  11110 
CLS ; LOCATE  10,10 

PRINT  "PR  I  NT  I  NO  INPUT  DATA,  PLEASE  STAND  BY," 

L PR  I  NT  DATES , TIME* 

LPR I  NT 

LPRINT  "FORSCOM  - -  "U09 

LPR I  NT 
LPRINT 

LPRINT  "THE  OUTPUT  WAS  DERIVED  FROM  THE  INPUT  D, 
LPRINT 

IF  F9«"n"  OR  F9-'*N"  GOTO  10440 

LPRINT  “CURRENT  UNIT  FILE  THAT  HAS  BEEN  I NPUTED 
OPEN  “I" ,#1,FF9 
INPUT  4  1  ,  FT 
I NPUT  41 ,F5 
INPUT  41 ,F6 
I NPUT  41 ,F7 


INPUT  DATA  LISTED  BELOW. 


"  F  F  9  "  . 


LPRINT  '•  UNIT  PROFILE  IS -  El  -  E4  --  "FT 

'.PRINT  "  ESs  —  "F5 

LPRINT  '*  £68  --  "F6 

LPRINT  "  E7s  —  "F7 

LPRINT  "A — TOTAL  1ST  TERMERS  IN  THE  UNIT -  “CP 

LPRINT  "B— EXPECTED  PERCENTAGE  OF  VEL  SOLDIERS - -  "VE 

LPRINT  "C— EXPECTED  LENGTH  OF  A  VEL  CONTRACT  IN  MONTHS -  "VT 

LPRINT  "D — EXPECTED  PERCENTAGE  OF  3  YR  ENLISTMENTS- -  "Y3 

LPRINT  “E— EXPECTED  TRAINING.  LEAVE  AND  TRAVEL  TIME  IN  MONTHS" 

LPRINT  “  THAT  A  SOLDIER  WILL  HAVE  BEFORE  ARRIVING  AT  HIS  UNIT— "TT 

LPRINT  "F— PERCENTAGE  OF  EXPECTED  EXTENSIONS  AND  REUPS  FOR  PDA -  "REE 

LPRINT  “G--EXPECTED  PROMOTION  MONTH  TO  ES -  "PT 

LPRINT  "H~ EXPECTED  MONTHLY  PROMOTION  PERCENTAGE  TO  E5 -  "PPP 

LPRINT  "I --THE  EXPECTED  MONTHLY  ATTRITION  RATE  IN  PERCENT -  "ARR 

LPRINT  " J  — THE  INTERVAL  FOR  1ST  TERMER  REPLACEMENTS,  IN  MONTHS - "RP 


LPRINT 
LPK I  NT 
LPRINT 
LPRINT 


LPRINT 

LPRINT 

LPRINT 


LPRINT  " K--THE  MINIMUM  TIME  IN  MONTHS  THAT 


SOLDIER" 


LPRINT  "  MUST  BE  IN  THE  UNIT  TO  BE  ELIGIBLE  TO  BE  REASSIGNED - "REA 

LPRINT  "L--THE  MINIMUM  TIME  IN  MONTHS  THAT  A  SOLDIER" 

LPRINT  "  MUST  HAVE  REMAINING  IN  THE  SERVICE  TO  BE  REASSIGNED - "MREA 

LPRINT  ”M— THE  EXPECTED  MONTHLY  PERCENTAGE  OF  REASSIGNMENTS - " PPREA 

LPRINT  " N — THE  NUMBER  OF  MONTHS  SIMULATED -  "MO 

LPRINT  “O — THE  NUMBER  OF  REPETITIONS -  "REPS 

LPRINT  " P--MONTHLY  LISTING  OF  UNIT  STRENGTH -  "B9 

LPRINT  "Q--BATTAL I  ON  TOTALS  FOR  REPLACEMENTS - " BBN9 

IF  BN9  -  "N"  OR  BN9  »  “(V*  THEN  10660 

LPRINT  "  NUMBER  OF  COMPANIES  IN  THE  BATTALION  IS -  "COMP 

IF  IN9-"N"  OR  I N9* " n"  THEN  10090 
LPRINT 

LPRINT  " NCO  DATA  ***»»*»■»»**»»«*««*»**»»****»****»*" sLPRI NT 
LPRINT  "A--NUM6ER  OF  AUTHORIZED  E5S - "E5 

LPRINT  “ 8 — THE  EXPECTED  TOUR  LENGTH  FOR  AN  ES,  IN  MONTHS - “ E5T 

LPRINT  "C--EXPECTED  MONTHLY  PERCENT  OF  ATTRITION  FOR  E5s - "AR55 

LPRINT  “D--THE  EXPECTED  MONTHLY  PROMOTION  PERCENTAGE  OF  ESs  TO  E6---"E5PP 
LPRINT  "E--NUMBER  OF  AUTHORIZED  E6s - "E6 

LPRINT  " F --THE  EXPECTED  TOUR  LENGTH  FOR  AN  E6,  IN  MONTHS - " E6T 

LPRINT  "G--EXPECTED  MONTHLY  PERCENT  OF  ATTRITION  FOR  E63 - "AR66 

LPRINT  " H — THE  EXPECTED  MONTHLY  PROMOTION  PERCENTAGE  OF  E6S  TO  E7 - " E6PP 

LPRINT  "I — NUMBER  OF  AUTHORIZED  E7s - "E7 

LPRINT  "J--EXPECTED  TOUR  LENGTH  FOR  AN  E7.  IN  MONTHS - " E7T 

LPRINT  " K--EXPECTED  MONTHLY  PERCENT  OF  ATTRITION  FOR  E7s - "AR77 


LPR I  NT 
LPRINT 
LPRINT 
LPR I  NT 
LPR I  NT 
LPRINT 


' L--THE  EXPECTED  MONTHLY  PROMOTION  PERCENTAGE  OF  E7s  TO  E8- 
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10810  LPRINT  "M—THE  EXPECTED  PERCENT  OF  INITIAL  NCO  FILL - "NFF 

10820  LPRINT  "ENTER  THE  EXPECTED  PERCENT  OF  FILL  FOR  NCOS  DURING  THE  UNIT'S" 
10830  LPRINT  "LIFETIME  FOR  I “ 

10840  LPRINT  "  N—E69  - " ESFF t E5F-EBFF* . 0 1 

10860  LPRINT  "  0--E6S  - " E6FF i E6F-E6FF* . 0 1 

10860  LPRINT  “  P--E7S  - " E7FF i E7F-E7FF » . 0 1 

10870  LPRINT  "Q—  THE  MONTH  TO  START  NCO  REPLACEMENTS  —  NRT 

10800  LPRINT  “ R--THE  INTERVAL  FOR  NCO  REPLACEMENTS,  IN  MONTHS— -“NRP 

10890  LPRINT  CHH9C 12) 

10900  LPRINT  5PC< 10) "COMPANY  FIRST  TERMER  COHORT  REPLACEMENT  PACKAGES" 

10910  LPRINT  SPCC10)" - - > - " 

10920  LPRINT 

10930  LPRINT  AVO  90*  CONFIDENCE  INTERVAL" 

10940  LPR I NT"MONTH  PKO  SIZE  LOWER  SOUNDS  UPPER  BOUNDS  STD  DEV" i 

10960  LPRINT  *  *  UN  I T  STR“ 

10960  LPRINT 

10970  ERASE  PQR , 3TAT , MON ,  E6  , E7 , ESS , E6S , E7S , ESSTAT , E6STAT , E7STAT 
10980  REM  ERASE  STAT , MON , E53, E6S . E7S . ESSTAT, E6STAT , E7STAT 
10990  GOTO  1720 
1  1000  LOCATE  6, 6 i BEEP 
11010  CLS 

I  1020  HR  I  NT  “ARE  YOU  SURE  77?7????7" 

1 1030  LOCATE  10,10 

11040  PRINT  "YOU  WILL  HAVE  TO  INPUT  ALL  NEW  DATA  TO  START  AGAIN." 

11060  PRINT 

11060  PRINT  “IF  YOU  STILL  WISH  TO  END  THE  SESS I  ON , PRESS  «»  Y  ■».“ 

1 1070  PRINT 

11000  PRINT  "IF  YOU  WISH  TO  CONTINUE.  PRESS  N  *«." 

11090  DP- I NPUT9< 1 ) i IF  D9-“N"  OR  D9-“n“  THEN  7810 

11100  IF  D9 - " Y"  OR  09- "y“  THEN  6200  ELSE  8EEP i GOTO  11000 

11110  OPEN  OF 9  FOR  OUTPUT  AS  9 2 

11120  PRINT  *2, CP 

11130  PRINT  92 , REA 

11140  PRINT  92, VE 

I I  ISO  PRINT  92, VT 
11160  PRINT  92.MREA 
11170  PRINT  92, PPREA 
11180  PRINT  #2, Y3 
11190  PRINT  92, TT 

1  1200  PRINT  92, REE 
11210  PRINT  92. PT 
1  1220  PR  I  NT  92 . PPP 
1 1230  PRINT  92.ARR 
1  1240  PRINT  92.RP 
1  1260  PR  I  NT  92 ,MO 
1 1260  PRINT  92. REPS 
1 1270  PR  I  NT  92 , A9 
1 1280  PRINT  92.BN9 
1  1290  PR  I  NT  92 .COMP 
1 1300  PRINT  92, IN9 
1  1310  PRINT  92, E5 
1  1320  PRINT  92.E5T 
1 1330  PRINT  92.ARS6 
1 1340  PRINT  92.ESPP 
1 1 3S0  PRI NT  92. E6 
1 1360  PRINT  92.E6T 
1 1370  PR  I  NT  92 , AR66 
1  1330  PRINT  92.E6PP 
1  1390  PR  I  NT  92 , E7 
1  1400  PR  I  NT  #2  ,  E7T 
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k 


r 

i 


11410 

PRINT 

#  2 , AR  7  7 

11420 

PRINT 

#2 ,E7PP 

1  1  430 

PRINT 

#2 , NFF 

1  1440 

PRINT 

62 , E3FF 

1  1  450 

PR  1  NT 

*2 , E6FF 

1  1460 

PRINT 

#2 , E7FF 

l  1470 

PRINT 

62 , NRP 

1  1460 

PRINT 

#2 ,NRT 

1 1  490 

CLOSE 

1  1300 

RETURN 

11310 

OPEN  •' 

I "  ,  »2 ,  DFi 

11320 

INPUT 

*2  ,  CP 

11330 

INPUT 

»2 , REA 

11340 

INPUT 

#2  ,  VE 

11330 

INPUT 

*2  ,  VT 

11360 

INPUT 

•2 , MHEA 

1  1  370 

INPUT 

*2 , PFREA 

11360 

INPUT 

#2,73 

11390 

INPUT 

#2  ,  TT 

1  1600 

INPUT 

#2 , REE 

11610 

INPUT 

#2  ,  PT 

11620 

INPUT 

#2 , PPP 

1  1630 

INPUT 

#2 , ARE 

1  1640 

INPUT 

#2  ,  HP 

1  1  630 

INPUT 

*2  .MO 

11660 

INPUT 

#2 , REPS 

1  1670 

INPUT 

#2  .  At 

1  1680 

INPUT 

#2 , BNt 

1  1690 

INPUT 

#2 , COMP 

1  1700 

INPUT 

#2 , IN* 

11710 

INPUT 

#2  ,  E5 

11720 

INPUT 

#2  ,E5T 

l  1730 

INPUT 

#2  ,  AR35 

11740 

INPUT 

#2 , E3PP 

11730 

INPUT 

#2  ,  E6 

1  1760 

INPUT 

#2  ,  E6T 

11770 

INPUT 

#2  ,  AH66 

11760 

INPUT 

#2  ,E6PP 

11790 

INPUT 

#  2  ,  E7 

1  1800 

INPUT 

#2 , E7T 

118  10 

INPUT 

#2 , AE77 

11320 

INPUT 

#2 , E7PP 

11330 

INPUT 

#2 , NFF 

11340 

INPUT 

#2 , E5FF 

11350 

INPUT 

#2  ,  E6FF 

1  1360 

INPUT 

#2 , E7FF 

11870 

INPUT 

#2 , NRP 

11380 

INPUT 

#2 , NRT 

1  1890 

CLOSE 

1  1900 

RETURN 
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10  REM  *********************************************************** 

20  REM  **  ** 

30  REM  **  turapi  ** 

40  EEM  **  ** 

30  REM  *********************************************************** 

30  REM  **  **  . 

70  REM  **  this  1*  t h •  oodi  far  t h *  luropi  moduli.  ** 

80  REM  **  ** 

90  REM  *********************************************************** 

100  CLS 
1 10  CLEAR 

120  DIM  PQH  < 123,2) 

130  DIM  STAT ( 123, 2) 

140  DIM  MON <231 ) 

130  DIM  E3  <  75 , 2) 

130  Dll  E8 (30,2) 

170  DIM  E7  <  30 , 2  ) 

180  DIM  ESS  <  230  ) 

190  DIM  ESS  <  230  ) 

200  DIM  E7S  <  230  ) 

210  DIM  ST3< 123) 

220  DIM  31*8  <  1  23  ) 

230  DIM  3T7  <123) 

240  '  *  DYNAMIC 

230  DIM  UPQR  <  1,1) 

260  PR  I  NT ; PR  I  NT : PH  I NT : PR  I  NT 

270  PRINT  "THE  DATA  THAT  YOU  INPUT  WILL  BE  AUTOMATICALLY  STORED  TO  A  FILE" 
290  PRINT 

290  PRINT  "THAT  YOU  NAME  SO  THAT  IT  CAN  BE  USED  AGAIN  IN  THE  FUTURE." 

300  PRINT 

310  PRINT  "REMEMBER,  IF  YOU  USE  THE  SAME  PILE  NAME  AS  A  PREVIOUS  FILE" 

320  PRINT 

330  PRINT  "THAT  YOU  INPUT,  THE  NEW  DATA  WILL  BE  SAVED  AND  THE  OLD  LOST." 

3  4  0  PH ' NT :  PH  I  NT : PR  I  NT : PR  I  NT : PR  I  NT 

330  LINE  INPUT  "ENTER  THE  NAME  OF  THE  DATA  FILE  "  : DF  5 
360  IF  DF*-""  GOTO  330 
370  CL3 : LOCATE  10,10 

380  PRINT  "13  "DF*"  AM  EXISTING  FILE  OH  A  NEW  FILE  ?" 

390  LOCATE  13,  IS: PRINT  "ENTER  *  E  *  FOR  AN  EXISTING  OR  *  N  *  FOH  NEW  FILE." 
400  CF » -  INPUT  Ml) 

410  IF  CF*»"E"  OR  CF  *  - " • "  THEN  430 

420  IF  CF  *  - " M"  OR  CF»-"n"  THEN  430  ELSE  BEEP : GOTO  370 

4  30  CLS  PH  I  NT : PR  I  NT : PRINT : PR  I NT : PR  I  NT  :  PR  I  NT 

440  PRINT  "ENTER  THE  TOE,  UNIT  DESCRIPTION  OR  BOTH  FOR  THE  TYPE  OF  UNIT." 

4  30  PR  I  NT: PR  I  NT 

460  LINE  INPUT  "YOU  WILL  INPUT  -  " ; UD * 

470  IF  CF «  » " N "  OR  CFt-"n"  THEN  300 

400  IF  CF  * ■ " E "  OR  CF ♦ « " # "  THEN  003UB  13  260 

490  GOTO  11110 

300  CLS : PR  I  NT 

310  INPUT  "ENTER  THE  TOTAL  1ST  TERMERS  IN  THE  UNIT  ";CP 
320  PRINT 

330  INPUT  "ENTER  THE  EXPECTED  PERCENT  OF  FILL  "  ;  EF 
340  CPP-C I  NT  <(EF*.01)*CP) 

330  PRINT 

360  INPUT  "ENTER  THE  EXPECTED  PERCENTAGE  OF  VEL  SOLDIERS  " : VE 
370  PRINT 

380  IF  VE  -  0  GOTO  640 

390  VV-VE* . 0 1 

600  VEL-C I  NT ( CPP*VV ) 
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610  INPUT  "ENTER  THE  LENGTH  Or  A  VEL  CONTRACT  IN  MONTHS  “ :VT 
620  PRINT 

630  IF  VE » 1 00  THEN  TT-VT-36 : GOTO  1030 
640  PRINT 

660  INPUT  "ENTER  THE  TOTAL  PERCENTAGE  OF  SOLDIERS  EXPECTED  F OR  JET  " i JE 
660  Td-JE».01 :PJ«CINT<CPP*TJ) 

670  PRINT 

680  IF  JE  -  0  AND  VE  -  0  GOTO  830 
690  IF  JE  ■  0  GOTO  820 

700  INPUT  "ENTER  THE  PERCENTAGE  EXPECTED  FOR  3  VR  JET  ENLISTMENTS  "id33 
710  J3Y-J33*.01 i J3«C I NT<d3Y*Pd ) id4-Pd-J3 
720  PRINT 

730  PRINT  "THE  REMAINING  SOLDIERS  ARE  ASSUMED  TO  BE  4  VR  JET  ENLISTEES." 

740  PRINT  ••»■***»»**»**«»  »*»*«■»■■»*»**»»»■>■**«»*■*»***»<*■*■■»»  **■*•««■•• 

760  PRINT 
760  PRINT 

770  INPUT  "ENTER  THE  TOUR  LENGTH  FOR  JET  SOLDIERS  IN  MONTHS  " ;JET 
780  PRINT 

790  PRINT  '  ENTER  THE  PERCENTAGE  OF  JET  SOLDIERS  THAT  ARE  EXPECTED  TO" 

800  INPUT  "EXTEND  THEIR  ENLISTMENT  FOR  A  CONUS  ASSIGNMENT  "sCA 
S10  RC»CA*.Ol i PR  I  NT 

82C  PRINT  "OF  THE  REMAINING  SOLDIERS:" 

830  INPUT  "ENTER  THE  EXPECTED  PERCENTAGE  OF  3  YR  ENLISTMENTS  " | Y3 
@40  YY-Y3».01 

850  YR3-C I  NT <  <  CPP-VEL-P J 5  *YY  3 
060  IF  Y3-100  GOTO  920 
870  YR4-CPP-VEL-YR3-PJ 
080  PRINT 

890  PRINT  “THE  REMAINING  SOLO  I  EPS  ARE  ASSUMED  TO  BE  4  YR  ENLISTEES." 

900  PRINT  “*»**■ **«*■*««*« »«*««»■***■*»« ««»«*• »■*»*»« >>«>■■»>*«■*»*" 

910  PRINT 
920  PRINT 

930  PRINT  "ENTER  THE  PERCENTAGE  OF  UNACCOMPANIED  SOLDIERS  THAT  ARE  EXPECTED" 
940  INPUT  “TO  EXTEND  THEIR  ENLISTMENT  FOR  A  CONUS  ASSIGNMENT  "|CCA 
960  RRC-CCA*. 01  SPRINT 
960  PRINT 

970  INPUT  “ENTER  THE  TOUR  FOR  UNACCOMPANIED  SOLDIERS  IN  MONTHS  “ | ST 
980  PRINT 

990  PRINT  "ENTER  THE  EXPECTED  TRAINING,  LEAVE  AND  TRAVEL  TIME  IN  MONTHS" 

1000  INPUT  "THAT  A  SOLDIER  WILL  HAVE  BEFORE  ARRIVING  AT  HIS  UNIT  " s TT 
1010  CL3 
1020  PRINT 

1030  PRINT  "ENTER  THE  PERCENTAGE  OF  EXPECTED  EXTENSIONS  AND  REUPS  FOR  PDA” 
1040  PRINT  "AND  THE  AVERAGE  EXTENSION  LENGTH  IN  MONTHS  OF  THE  TOUR  FOR:'* 

1060  PRINT 

1060  PRINT:  INPUT  "UNACCOMPANIED  1st  TERMERS  “ ; R E E 

1070  PRINT: INPUT  "ENTER  THE  AVERAGE  LENGTH  IN  MONTHS  " jAE 

1080  PRINT 

1090  PR l NT: INPUT  "JET  SOLDIERS  “ : JREE 

1100  PRINT: INPUT  "ENTER  THE  AVERAGE  LENGTH  IN  MONTHS  “ : JAE 
1  1  10  JRE-JPEE* .01 
1  120  RE-REE*. 01 
1130  PRINT 

1140  PRINT  "ENTER  THE  MINIMUM  TIME  IN  MON  THS  THAT  A  SOLDIER  MUST  HAVE" 

1150  INPUT  "TO  ROTATE  BACK  TO  CONUS  “ :MT 
1160  PRINT 

1170  INPUT  "ENTER  THE  EXPECTED  PROMOTION  MONTH  TO  E5  " : PT 
1180  PRINT 

1190  INPUT  "ENTER  THE  EXPECTED  MONTHLY  PROMOTION  PERCENTAGE  TO  E5  ” : PPP 
1200  PP»PPP*.Q1 
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1210  PRINT 

1220  INPUT  "ENTER  THE  EXPECTED  MONTHLY  ATTRITION  RATE  IN  PERCENT  “  iARR 
1230  AR»ARR* , 0 1 
1240  PRINT 

1260  INPUT  "ENTER  THE  INTERVAL  FOR  1ST  TERMER  REPLACEMENTS,  IN  MONTHS  "(RP 
1 260  CLS  »  PR  I  NT i PR  I  NT i PR  I  NT i PR  I  NT i PR  I  NT 
1270  PRINT 

1280  PRINT  “UNDER  CURRENT  POLICY,  THE  UNIT  WILL  SPEND  12  MONTHS  IN" 

1290  PRINT  “CONUS  TRAINING  BEFORE  DEPLOYING  OVERSEAS.  REPLACEMENTS" 

1300  PRINT  "ARE  PROVIDED  AT  THE  ROTATION  POINT." 

1310  RT» 12 

1 320  MJ«JET+TT+RT i PR  I  NT i PR  I  NT i PR  I  NT 
1330  PRINT  “PRESS  ANY  KEY  TO  CONTINUE" 

1340  QQS-INKEYSt  IF  QQS»"“  THEN  1340 
1360  CL  Si  LOCATE  10,10 

1360  PRINT  “ DO  YOU  WANT  BATTALION  TOTALS  FOR  REPLACEMENTS  7“ 

1370  LOCATE  IS, 16 

1380  PRINT  "ENTER  «*  Y  **  FOR  Y£S,*«  N  »»  FOR  NO." 

1390  8N9  >  INPUTSCI) 

1400  IF  BNS  ■  "N"  OR  BNS  »  “n"  THEN  1480 

1410  IF  BNS  -  "Y“  OR  BNS  ■  "y«  THEN  1420  ELSE  BEEP  <  GOTO  1370 
1 420  CLS i PR  I  NT i PR  I  NT : PR  I  NT . PR  I  NT i PR  I  NT 

1430  PRINT  "COMPANIES  WILL  START  UP  EVERY  12  MONTHS." 

1440  PR  I  NT: PR  I NTi PR  I  NT 

1460  PRINT  "ENTER  THE  NUMBER  OF  COMPANIES  IN  THE  BATTALION." 

1460  INPUT  "ENTER  EITHER  3.  4,  OR  5  “ i COMP 
1470  IF  COMP <3  OR  CCMP>6  GOTO  1460 
1480  CLS 

1490  LOCATE  10,10 

1600  PRINT  "DO  YOU  WANT  TO  INPUT  NCO  DATA?" 

1610  LOCATE  IS. IS 

1520  PRINT  "ENTER  »•  Y  »*  FOR  YES.*«  N  ««  FOR  NO." 

1530  INS  ■  I NPUTS  < 1 ) 

1540  IF  I NS“ “ N "  OR  INS-"n"  THEN  2130 

1660  IF  INS  *  "Y"  OR  INS  -  “y“  THEN  1660  ELSE  BEEP i GOTO  1510 
1560  CLS: PR  I  NT 

1570  INPUT  "ENTER  THE  NUMBER  OF  AUTHORIZED  E5s  “ : SE5 
1580  PRINT 

1590  INPUT  "ENTER  THE  EXPECTED  TOUR  LENGTH  FOR  AN  E5 ,  IN  MONTHS  " j  E5T 
1600  PRINT 

1610  INPUT  "ENTER  THE  EXPECTED  MONTHLY  PERCENT  OF  ATTRITION  FOR  E5s,  "iAR65 
1620  AR6-AR66».01 
1630  PRINT 

1640  INPUT  "ENTER  THE  EXPECTED  PROMOTION  PERCENTAGE  OF  £5s  TO  E6  ";E5PP 
1650  PR  I  NT : E5P»E6PP*  .  0  1 

1660  INPUT  "ENTER  THE  NUMBER  OF  AUTHORIZED  E6s  ":SE6 
1670  PRINT 

1660  INPUT  "ENTER  THE  EXPECTED  TOUR  LENGTH  FOR  AN  E6 ,  IN  MONTHS  " ; E6T 
1690  PRINT 

1700  INPUT  "ENTER  THE  EXPECTED  MONTHLY  PERCENT  OF  ATTRITION  FOR  E6s.  ":AR66 
1710  AR6-AR66».01  . 

1720  PRINT 

1730  INPUT  "ENTER  THE  EXPECTED  PROMOTION  PERCENTAGE  OF  E6s  TO  E?  “:E6PP 
1740  PR  I  NT  :E6P«E6PP*.0'1 

1750  INPUT  "ENTER  THE  NUMBER  OF  AUTHORIZED  E7s  " ; SE7 
1760  PRINT 

1770  INPUT  "ENTER  THE  EXPECTED  TOUR  LENGTH  FOR  AN  £7,  IN  MONTHS  " ; E7T 
1780  PRINT 

1790  INPUT  "ENTER  THE  EXPECTED  MONTHLY  PERCENT  OF  ATTRITION  FOR  E7s ,  ":AR77 
1800  AR?»AR77».01 
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PRINT 

INPUT  "ENTER  THE  EXPECTED  PROMOTION  PERCENTAGE  OF  E?S  TO  E6  "i£?PP 
PR  I  NT i PR  I  NT  t  £7P*£7PP* . 0 1 

PRINT  "ENTER  THE  EXPECTED  PERCENTAGE  OF  NCOs  THAT  WluL  CHOOSE  AN" 

INPUT  "ALL  OTHERS  TOUR  RATHER  THAN  AN  ACCOMPANIED  TOUR  “ i AOTT 
AOT  »  AOTT* . 0 1 i PR  I  NT 

INPUT  "ENTER  THE  LENGTH  OF  AN  ALL  OTHERS  TOUR  “i LOT: PR  I  NT 
INPUT  "ENTER  THE  EXPECTED  INITIAL  PERCENT  OF  NCO  FILL  " i NFF i NF-NFF* . 0  1 
SSES-CI NT<SES*NF>  t SSE6-C I NT< SE6*NF >  > SSE7-C I NTC SE7*NF 3 
SESO-C I  NT <AOT*SSES ) 

SE5A-SSES-SESO 
SE60«C I  NT < AOT*SSE6  > 

SE6A-SSE6-SE60 
SE70-CI NT<AOT»SSE7> 

3E7A-SSE7-SE70 

PRINT 

PRINT  "ENTER  THE  EXPECTED  PERCENT  OF  FILL  FOR  NCOS  DURING  THE  UNIT’S  " 
PRINT  “LIFETIME  FOR:” 


PRINT 
PRINT 
PR  I  NT 
INPUT 
INPUT 
INPUT 
PRINT 
PRINT 
PRINT 
INPUT 


E5FFiE5F-ESFF*.01 
E6FF i£6F«E6FF».01 
E7FF i E7F »E7FF* .01 


'ENTER  THE  PERCENTAGE  OF  EXPECTED  EXTENSIONS  AND  REUPS  FOR  PDA" 


INTERVAL  FOR  NCO  REPLACEMENTS ,  IN  MONTHS  ";NRP 


PRINT  "AND  THE  AVERAGE  EXTENSION  LENGTH  IN  MONTHS  OF  THE  TOUR  FOR  I ” 

INPUT  "ENTER  THE  EXPECTED  PERCENT  OF  NCO  EXTENSIONS  '*  :  NREE 
PRINT* INPUT  "ENTER  THE  AVERAGE  LENGTH  IN  MONTHS  " | NAE 
NRE-NREE* .01 
PRINT 

INPUT  "ENTER  THE  INTERVAL  TOR  NCO  REPLACEMENTS ,  IN  MONTHS  ";NRP 
PRINT 

INPUT  "ENTER  THE  MONTH  TO  START  NCO  REPLACEMENTS  " : NRT 
CLSiPRINT 

INPUT  “ENTER  THE  NUMBER  OF  MONTHS  TO  SIMULATE  ” jMO 
PRINT 

INPUT  "HOW  MANY  REPET I T I ONS--A  MINIMUM  OF  30  ARE  REQUIRED  ";REPS 
CLS: LOCATE  10. 1C 

PRINT  "00  YOU  WANT  A  MONTHLY  LISTING  OF  UNIT  STRENGTH, YES  OR  NO" 

LOCATE  15,15 

PRINT  "ENTER  **  Y  **  FOR  YES,**  N  »*  FOR  NO." 

AS* INPUTSt 1 > 

IF  AS  «  "N”  OR  AS  -  “n”  THEN  2240 

IF  AS  ’  “Y“  OR  AS  ■  “y"  THEN  2240  ELSE  BEEP ; GOTO  2170 

CLS 1  PR  I  NT  s  PR  I  NT : PR  I  NT ! PR  I  NT 

PRINT  “DO  YOU  WANT  TO  USE  A  UNIT'S  PRESENT  PROFILE  THAT  YOU  “ 

PR l NT"CREATED  in  A  file  7  ENTER  *  Y  *  FOR  YES.  *  N  *  FOR  NO." 

FS*  I NPUTSC 1 ) 

IF  FS  •  “N"  OR  FS  *  "n"  THEN  2320 

IF  FS  »  “Y"  OR  FS  »  "y"  THEN  2300  ELSE  BEEP-.GCTO  2240 

CLS i PR  I  NT : PR  I  NT : L I NE  INPUT  "ENTER  THE  FILE  NAME  “iFFS 

IF  F F S * " "  THEN  BEEP  :  GOTO  2300 

GOTO  11110 

FOR  Z  *  1  TO  REPS 

REM" TH I S  PROGRAM  IS  CURRENTLY  SET  UR  TO  EE  COMPILED  IN  THE  BASIC  COMPILER" 
REM" IN  ORDER  TO  RUN  THIS  PROGRAM  USING  THE  BASIC  i NTERPRETER , YOU  MUST" 
REM"REMOVE  THE  REM  FROM  LINES  2450  -  2570.  YOU  MUST  THEN  REMOVE  THE" 
REM“REM  FROM  LINE  15130  AND  INSERT  REM  IN  LINE  15120." 

REM" THE  PROGRAM  WILL  NOW  RUN.  HOWEVER,  IF  YOU  WANT  TO  RECOMPILE" 

REM"THE  PROGRAM,  YOU  MUST  REVERSE  THE  ABOVE  PROCESS." 

ERASE  E5 


“n“  THEN  2240 

"y"  THEN  2240  ELSE  BEEP ; GOTO  2170 


PRESENT  PROFILE  THAT  YOU  “ 

Y  *  FOR  YES.  *  N  *  FOR  NO." 


5ASIC  i NTERPRETER , YOU  MUST" 
YOU  MUST  THEN  REMOVE  THE" 
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2410 
2420 
2430 
2440 
2430 
2460 
2470 
2490 
2490 
2300 
23  10 
2320 
2330 
2340 
2330 
2360 
2370 
2390 
2390 
2600 
2610 
2620 
2630 
2640 
2630 
2660 
2670 
2680 
2690 
2700 
27  10 
2720 
2730 
2740 
2730 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2340 
2830 
2860 
2870 
2880 
2390 
2900 
2910 
2920 
2930 
2940 
2930 
2560 
2970 
2980 
2900 
3000 


EHASE  E6 
EHASE  E7 
EHASE  PQR 
EHASE  UPOB 

HEM  IP  Z>1  GOTO  2380 
REM  DIM  9TAT< 123,2) 

HEM  DIM  MON ( 23  1  ) 

HEM  DIM  E3S <  230 ) 

REM  DIM  E6S  (  230  ) 

REM  DIM  E7S (230) 

REM  DIM  STS (123) 

REM  DIM  ST6 (123) 

REM  DIM  ST7  < 123) 

REM  DIM  PQH ( 123,2) 

REM  DIM  E3  <  73 , 2 ) 

REM  DIM  E6  (  SO  ,  2  ) 

REM  DIM  E7 ( 30 , 2  ) 

IF  F 1  ■» "  y "  OR  F«*"Y"  THEN  RT»0  ELSE  RT.12 

RANDOMIZE  TIMER 

CLS 

LOCATE  10,10 

PRINT  "CURRENTLY  ON  REPETITION  "Z"  OF  "REPS"  REPETITIONS 

IF  F*  ■  "7"  OR  F»  ■  "y"  THEN  2960  ELSE  2640 

FOR  I  »  O  TO  VEL-t 

PQH ( I , 1 ) » 1 

PQH (1,2) .VT-TT 

NEXT  I 

FOR  A  »  VEL  TO  (VEL+YR3-1) 

PQR  <  A ,  1) -2 
POR< A, 2  J.36-TT 
NEXT  A 

FOR  C»VEL*YR3  TO  CPP-PJ-l 
POP (C , 1 ) >3 
POR ( C , 2 ) x  4  8  -  TT 
NEXT  C 

IF  36-TT<MJ  THEN  0J3-MJ-TT  ELSE  JJ3-36-TT 
FOR  A-VEL+YR3+YR4  TO  C.PP-J4-1 
POR  <  A ,  1  > - 4 : PQH  <  A , 2 ) ■ JJ  3 
NEXT  A 

IF  48-TT(MJ  THEN  JJ4-MJ-TT  ELSE  JJ4.4£;-TT 
FOR  A»VEL*YR3+YR4+J3  TO  CPP-1 
POR < A , 1 ) »5 : POR ( A , 2 ) «JJ4 : NEXT  A 
FOR  D-0  TO  3SE3-1 


E3 (D , 1 ) - l 

IF  D(SE3A  THEN  E3 ( D , 2 ) -E3T-RT  ELSE  E5 ( D , 2 ) * LOTfRT 
NEXT  D 


FOR  D  -  0  TO  SSE6-1 
E6 ( D ,  1 > -  1 

IF  D(SE6A  THEN  E6 ( D , 2 ) 0E6T+RT  ELSE  E6 ( D , 2 ) > LOT *HT 
NEXT  D 

FOR  D  .  0  TO  3SE7-1 
E7 ( D ,  1 ) x  I 

IF  D ( SE7A  THEN  E7 ( D ,  2 ) aE7T»RT  ELSE  E 7 ( D  ,  2 ) > LOT  +  RT 
NEXT  D 
GOTO  3360 

REM  UNIT  INPUT  MODULE 
IF  Z=»l  GOTO  3030 
OPEN  " I " , » I , FF» 

INPUT  61 .FT 
INPUT  tt  1  ,  F5 
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3010  INPUT  #1 ,F6 
3020  INPUT  #1 ,F7 
3030  BEDIM  UFQH<FT,4> 

3040  FOB  T«1  TO  FT+1 

3030  FOB  TT  «  1  TO  4 

3060  IF  EOF ( 1 )  THEN  CLOSE : OOTO  3120 

3070  INPUT  81  ,  A 

3090  IF  A-99  GOTO  3120 

3090  UPOK  < T , TT )  -  A 

3100  NEXT  TT 

3110  NEXT  T 

3120  FOB  T«1  TO  F3+1 

3130  IF  EOF < 1 )  THEN  CLOSE :GOTO  3200 

3140  INPUT  •  1  ,  A 

3130  It  A-99  OOTO  3200 

3160  INPUT  *1  ,A 

3170  IF  A-99  OOTO  3200 

3180  E5<T,1>  ■  1  : E3  <  T , 2 )  -A 

3190  NEXT  T 

3200  FOR  T«1  TO  F6+1 

3210  IF  EOF  (  1  )  THEN  CLOSE:OOTO  3280 

32  20  INPUT  *  1  , A 

3230  IF  A-99  OOTO  3230 

3240  INPUT  *1  ,  A 

3230  IF  A-99  OOTO  3280 

3260  E6<T,1>  •  1  ; Efl  <  T ,  2 ) -A 

3270  NEXT  T 

3280  FOB  T-l  TO  F7+1 

3290  IF  EOF ( 1 )  THEN  CLOSE : OOTO  3360 
3300  INPUT  » 1 , A 

3310  IF  A-99  THEN  CLOSE:GOTO  3360 
3320  INPUT  « 1 , A 

3330  IK  A-99  THEN  CLOSE  GOTO  3360 

3340  E7(T ,  1)  -  1  :  E7<T, 2) »A 

3330  NEXT  T 

3360  FOB  B-l  TO  MO 

3370  LOCATE  13,13 

3380  PHINT  "CURUENTL V  ON  MONTH  "B"  OF  A  "MO"  MONTH  CYCLE. 

3390  VLOSS-O 

3400  Y3L0SS-0 

3410  Y  4  LOSS - 0 

3420  J3LOSS-0 

3430  J 4  LOSS - 0 

3440  E3LOSS-0 

3430  E6LOSS-0 

3460  E71.0SS-0 

3470  KLQSS-0 

3480  INLOSS-O 

3490  INMUM-0 

3  S  0  0  VNUM-0 

3310  Y3NUM-0 

3320  Y4NUM-0 

3330  J3NUM-0 

3340  J4NUM- 0 

3r.30  E3NUM-0 

3360  E6NUM-0 

3570  E7NUM-0 

3580  RNUM-0 

3590  IF  F  $  *  "N"  OR  FS  -  "n"  OR  MO  >  48  THEN  3790 

3600  FOR  D-l  TO  FT 
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3610 
3620 
3630 
3640 
3690 
3660 
3670 
3660 
3600 
3700 
3710 
3720 
3730 
3740 
3730 
3760 
3770 
3780 
3790 
3900 
3810 
3820 
3830 
3840 
3890 
3860 
3070 
3880 
3890 
3900 
3910 
3920 
3930 
3040 
3930 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4090 
4060 
4070 
4980 
4090 
4  1  00 
4  110 
4  1  20 
4130 
4  1  40 
4130 
4  1  6  0 
417  0 
4180 
4  1  90 
4200 


IF  UPOB  <  D , 2  >  »0  GOTO  3780 
I NNUM. I NNUM+ 1 
UPOB  < D i  2 > ■UPOH ( D , 2 ) -  1 
UPQRID, 4) *UPQH'D, 4)~1 

IF  UPOB '0 . 2  >  >0  THEN  GOSUB  8300  ELSE  3670 
GOTO  3780 
8D-BNB 

IF  HD>  AB  GOTO  3720 
UPOB <  D , 2 ) «C 

I NNUMx I NNUM  -  1  :  I NLOS 8 - I NLOS 3 +  1 
GOTO  3780 

IF  UPOB  <  D . 4  >  >  UPOB  <  B , 3  > - P?  THEN  3780 

BB-BND 

IF  HD >  PP  GOTO  3780 
GOSUB  9700 

I NNUM- I NNUM- 1  :  I NLOS 3 - I NLOSS +  1 
UPOB  <D  ,  2  )  >0 
NEXT  B 

IF  CP  >«CPP  THEN  JJJ-CF  ELSE  JJJ-CPP 
FOR  J»0  TO  JONT-l 

if  road,  n-o  goto  4D4c 
IF  POEfjr.D'.S  Oi  POH<J,l)-r  GOTO  40  9  0 
IF  PQHIJ,l>-3  OS  FOB ( J ,  1 ) * 8  3CTO  4240 
IF  FOR  <  J i  l  )  .4  03  PQH<J,l>-9  GOTO  4940 
IF  POH(J,l)-3  Ok  P0H(J,li-10  GOTO  4730 
IF  POB ( J i 1 > ■ 1 3  GOTO  4430 
PQHd, 2) -POB <3 .21-1 
VNUM-7NUM+1 

IF  POE(J,l)«l  THEN  3900  ELSE  3920 

IF  FOR  ( J  i  2  )  u  0  OH  POH<  J  ,  2  ) -VT-TT-3T-0T  THEN  QrEUB  8380  ELSE  3940 
GOTO  4940 

IF  POB  <  J , 2 ) .0  OB  POH<J,  2J-VT-TT-ST  THEN  GOSUB  838-)  FI.SE  GOTO  3940 
GOTO  4940 
RD  -  BNB 

IF  HD>AH  GOTO  3980 
GOSUB  8340 
GOTO  4940 

IF  PQH  <  J , 2 '  >  VT-PT  GOTO  4940 

BD  .  RNB 

IF  BD  >  PP  GOTO  4040 

IF  I  N  ♦  »  "  N 11  OH  I  N<  ■  "n"  THEN  4C30 

OOSUB  9330 

GOSUB  8540 

GOTO  4940 

BEM  PQR  (Ji l)»2  OH  7 
POB  <J,i>»FQR  ( J , 2 ) -1 
Y3SUW.lt  3NUM+  I 


IF  PQ3  <  J ,  1  > • 7  GOTO  4110 

IF  POB  <  J ,  2 ) -  0  08  PQH< J,  2 ) -36-TT-HT-3T  THEN  GOSUB  8790  ELSE  GOTO  4  130 
GOTO  4940 

IF  POB<J,2)»0  OK  FQH < J , 2 ) -36-TT-9T  THEN  GOSUB  8790  ELSE  GOTO  4130 

GOTO  4940 

HD-8ND 

IF  BD >  AB  GOTO  4170 
GOSUB  8730 
GOTO  4940 

IF  PQH (7,2(  1  36 -FT  GOTO  494C 

ED. RNB 

! F  EO  )  PP  GOTO  4940 

IF  I  N  1  «■  "  N "  OH  IN*-"n"  THEN  4  2  20 
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4210  GOSUB  9330 

4220  GOSUB  8750 

4230  GOTO  4940 

4240  HEM  BOB  OB  8 

4230  POR<0\  2) -POBIJ  ,  2)-l 

4280  Y4NUM-Y4NUM+ 1 

4270  IP  P08<J,1)«8  GOTO  4300 

4280  IP  POR  <CT , 2 > «0  OB  POR  <  J  ,  2  ) a  4 8 -TT- RT- ST  THEN  GOSUB  9000  ELSE  GOTO  4320 
4290  GOTO  4940 

4300  IP  POP.  <  J , 2 ) aO  OR  PQH<3\  2>«48-TT-ST  THEN  GOSUB  9000  ELSE  GOTO  4320 
4310  GOTO  4940 
4320  RD-BND 

4330  IP  BD  >  AH  GOTO  4380 
4340  GOSUB  8980 
4330  GOTO  4940 

4380  IP  PQR(3\  2) 148-PT  GOTO  4940 
4370  BD-RND 

4380  IP  BD  >  PP  GOTO  4940 

4390  IF  IN4«"N"  OB  IN»«’*n"  THEN  4410 

4400  0031/3  9330 

4410  309UB  8960 

4420  GOTO  4940 

4430  PQBCJ, 2>*PGH< J, *1-1 

4440  BNUH-BNUM+1 

4430  IP  P0U<J,2>a0  THEN  4300 

4460  RDaRWD 

4470  IF  BD  >  PP  GOTO  4940 

4480  IF  INI-,,N"  OB  IN1«‘'n‘'  THEN  4300 

4490  GOSUB  9330 

4300  KNUM-RNUM- 1 

4310  HLOSS-RLOSS+t 

'<3  20  POB<  J,  1  >»0 

4330  GOTO  4940 

4340  BEM  PQHIJ, 1 >»4  OB  9 

4330  POB  <  J i 2 1  a  POR ( J , 2 ) - 1 

4380  J3NUM-J3NUM* l 

4370  IF  POR  ( Of .  2  )  aO  THEN  OOSUB  92,0  ELSE  GOTO  4390 
4380  GOTO  4940 
4390  BD-HND 

4600  IF  RDJ/iR  GOTO  4830 
4610  0O3UB  9170 
4620  GOTO  4940 

4  6  30  IF  PQR  <  J  ,  1  >  i:  4  GOTO  4863 

4640  IF  P0B< J , 2 1 > JET+TT-PT  GOTO  4940 

4630  GOTO  4673 

4660  IF  POB< J , 2 ) ) JJ3+TT-PT  GOTO  4940 
4670  HD.BND 

1680  IF  HD>  PP  GOTO  4940 

4690  IF  IN»a"N"  OR  IN*.l•n,,  GOTO  4710 

4700  GOSUB  9330 

4710  GOSUB  9170 

4720  GOTO  4940 

4730  BEM  POHIJ.lJaS  OR  10 

4740  POR< J , 2 > -POR < J , 2 ) -1 

4730  1 4NUMaJ  4NUM+ 1 

4760  IF  POR  <  J , 1 ) a  1 0  THEN  4790  ELSE  GOTO  4770 

4770  IF  POB ( J , 2 ) »  43  =MJ  OR  POR  <  J ,  2 ! *  Q  THEN  GOSUB  9390  ELSE  GOTO  4800 
4780  GOTO  4940 

4790  IF  POR  <  J , 2  )  a 0  OH  POR  <  J , 2 ) a  4 8 -TT- JET  THEN  GOSUB  9390  ELSE  4800 
4800  RDaRND 
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4810 

4820 

4830 

4840 

4890 

4860 

4870 

4880 

4890 

4900 

4910 

4920 

4930 

4940 

4990 

4960 

4970 

4980 

4990 

3000 

30  10 
3020 
3030 
3040 
3030 
3060 
3070 
3080 
3090 
3100 

31  10 
3120 
3  1  30 
3140 

'3130 
3  1  60 
3  1  70 
3  1  80 
5190 
3  200 
5210 
3220 
3  2  30 
3240 
3230 
3260 
3270 
5280 
3290 
3300 
33  10 
3320 
3330 
3340 
3330 
3360 
3370 
3380 
5390 
3400 


IP  ItOAU  GOTO  4840 
GOSUB  9340 
GOTO  4940 

IF  PQH<J,t>»3  SOTO  4870 
ip  P08<J,2) >48-PT  GOTO  4940 
GOTO  4880 

IF  POaiJ, 2) )JJ 4  +  TT-PT  GOTO  4940 
HD-RND 

IF  RB>PF  GOTO  4940 

IF  INta“N"  OB  IN»-"n"  GOTO  4920 

OOSUB  9330 

OOSUB  9340 

GOTO  4940 

NEXT  2 

TL08S-TL0SS+  VL0SS  +  Y3L083+Y4L0834RL0S3+J3L0S3+J 4LOSS+INLOS8 

USTtt  »  VNUM  +  Y3NUM*  ¥ 4MUM  +  RNUM+ J  3NUM+ J  4NUM+ I NNUM 

IF  USTHICP  THEN  1LOSS-0  ELSE  I L089-CP-USTR 

IF  B<HT  GOTO  3030 

IF  I  LOSS  <  >0  THEN  IL033-0 

IF  8  MOD  HF-0  THEN  Q.B/BP 

IF  B  MOD  HP.O  THEN  I L» I  LOSS* I  LOSS 

IF  B  MOD  BP-0  THEN  STAT  <  0  ,  I  ) -STAT  ( 0 , 1  >  ♦  I  LOSS 

IF  B  MOD  RP-0  THEN  STAT < 0 , 2 ) -ST AT ( 0 , 2 > ♦ I L :  I  LOSS -0 

IF  B  MOD  KP  >0  THEN  OOSUB  9770 

IF  B  >230  GOTO  SOSO 

USTH- VNUM+  Y3NUM+ Y  4NUM+SNUM4 J3NUM* J  4NUM* I NNUM 

MON  <  B )  -MON(B)+USTH 

IF  IN»«"N”  OH  INI - "n"  THEN  8270 

FOB  K»0  TO  73 

IF  E3  < K . 1 ) »0  GOTO  3900 

E3NUM-E3NUM+  l  :  E3  <  K  ,  2  >  -E3  <  X  ,  2  >  -  1 

IF  E3(X,1>-1  THEN  3130  ELSE  3170 

IF  E3<X,2J«0  THEN  OOSUB  10140  ELSE  3790 

IF  E3 ( X ,  1  )  •  1  0  03  E3  <  K ,  I  > • 1 1  GOTO  3900 

GOSUB  10220 

GOTO  3900 

IF  ES  <  K /  1  >  -2  THEN  3130  ELSE  3220 
XX-VT-TT-ST-RT 

IF  E3<X,2>-XX  OH  E3<X,2>-0  THEN  GOSUB  10140  ELSE  3790 
GOSUB  10220 
GOTO  3900 

IF  E30C,i>»2.5  THEN  3230  ELSE  3280 
XX-VT-TT-ST 

IF  E3(K,2)-XX  OH  E3(X,2)-0  THEN  GOSUB  10140  ELSE  37'.!J 
IF  ES ( K , 1 ) »  1  0  OB  ES(K,1)»11  OCTO  3900 
OOSUB  10220 
GOTO  3900 

IF  E3(K,n»3  THEN  3290  ELSE  0340 
XX-36-TT-ST-BT 

IF  E3<K,2>»XX  OB  S3(K,2>*0  THEN  GOSUB  10140  ELSE  3790 
IF  E5(K,1)-10  OH  E3<X,1>«11  GOTO  3900 
GOSUB  10220 
GOTO  3900 

IF  E3<K,l>-3.3  THEN  3330  ELSE  3400 
XX-36-TT-ST 

IF  E3<X,7.)»XX  OR  F.3  <  K  .  2  > -0  THEN  GOSUB  10140  ELSE  3790 
IF  ES(K.1>-10  OR  E3<K,')»ll  GOTO  3900 
OOSUB  10220 
GOTO  5900 

IF  E3(K,1)»4  THEN  3410  ELSE  3460 


0- IV- 1 


CAA-SR -87- 18 


3410  XX-48-TT-8T~BT 

9420  IF  ES ( X  ,  2  >  « XX  OS  E3<X,2>-0  THEN  003  UB  10140  ELSE  9790 
9430  IF  ESIK,  11-10  OE  E3<K,  11-11  GOTO  9900 
3440  009 UB  10220 
3490  OOTO  3900 

3440  IF  ESIK.  11-4. 3  THEN  9470  ELSE  3320 
3470  XX-48-TT-ST 

3480  IF  E3 I  X . 2  1  “XX  OB  E3IX.21-0  THEM  GOSUB  10140  ELSE  3790 
3490  IF  E  3  <  K i  1  )  a  1  0  OB  E3IX,  11-11  GOTO  3900 
9300  GOSUB  10270 
3310  GOTO  3900 

3320  IF  ESIK, 11-9  THEN  3930  ELSE  3330 

3330  IF  B3IK.21-0  THEN  GOSUS  10140  ELSE  3790 

3340  IF  ESIK. 11-10  OB  ESIK,  11-11  GOTO  3900 

3330  009 UB  10220 : GOTO  3900 

3340  IF  E9(K, 11-3,3  THEN  3370  ELSE  3400 

3370  IF  ES ( X i 2 1 -0  THEN  GOSUB  10140  ELSE  3790 

3380  IF  E3(K, 11-10  OR  E3(X,  11-11  GOTO  3900 

5390  GOSUB  10220 : GOTO  3900 

3400  IF  E3 ( K  ,  L 1 -4  THEN  3410  ELSE  3640 

3410  XX-MJ-JET-ST-BT 

3420  IF  E3 ( X , 2 ) -XX  OB  ESIK, 21-0  THEN  GOSUB  10140  ELSE  3790 
3430  IF  E3(K, 11-10  OB  ESIK. 11-11  GOTO  3900 
3440  GOSUB  10220 
3430  GOTO  3900 

3440  IF  E3IK,l>-6.3  THEN  3470  ELSE  3720 
3470  XX-48-TT-JET 

3480  IF  E3 ( X , 2  > - XX  OB  E9<X,21-0  THEN  303UB  10140  ELSE  3790 
3490  IF  E3<K,  11-10  OH  E«  I  X  , 11-11  GOTO  5900 
3700  GOSUB  10220 
3710  GOTO  3900 

3720  IF  E3<X,  11-10  THEN  3730  ELSE  3730 
3730  IF  E3 ( X i 2 1 -0  THEN  GOSUB  10220  EL3E  3900 
3740  GOTO  3900 

3730  IF  ES  <  X , 2  1-0  THEN  GOSUB  10140  ELSE  5790 

5760  IF  ESIX,  11-10  GOTO  3900 

3770  GOSUB  10220 

3780  GOTO  3900 

3790  3D-END 

3800  IF  HD1AB3  GOTO  3830 
3810  GOSUB  10220 
3820  GOTO  3900 
3830  HD-BND 

3840  IF  BD1E3F  GOTO  3900 

3830  FOR  M-0  TO  30 

3860  IF  E6  04,  1)10  GOTO  3890 

38  70  E6(M, 11-1: E6(M,2)-E3<X, 21+1: E5NUM-E5NUM  l : ESI  X ,  t 1 -0 

3880  GOTO  3900 

3890  NEXT  M 

3900  NEXT  X 

5910  FOB  L-0  TO  30 

3920  IF  E6  <  L  *  11-0  GOTO  3070 

3930  E6NUM-E6NUM+ 1  : E6 ( L , 2 1 -E6( L , 2>- 1 

5940  IF  E6 I L , 2 1 -0  THEN  GOSUB  10260  ELSE  3960 

3930  GOTO  6070 

3930  RD.RND 

3970  IF  RD1AB6  GOTO  8000 
3980  GOSUB  10310 
5990  GOTO  6070 
6000  HD.RND 
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0 


to  10 
00  20 
0030 
0040 
0030 
0000 
oo?o 
0080 
0090 
0100 
0110 
0120 
0130 
0140 
0130 
0160 
0170 

eiao 

0190 
0200 
02  10 
6220 
0230 
0240 
0230 
0200 
6270 
0280 
0  2  90 
0300 
0310 
0320 
0330 
0340 
0330 
0300 
0370 
0380 
0390 
6400 
6410 
6420 
6430 
6440 
6430 
6400 
0470 
0480 
0490 
6300 
03  10 
6320 
6330 
6340 
6330 
6360 
6370 
6530 
6390 
6600 


IF  8D)E6P  GOTO  6070 

FOB  K-0  TO  30 

IF  E?<K, 1 >  >0  GOTO  6000 

E7<  K  ,  1  >-l  :E7CK , 2  >»Efl <  L  ,  2  )  +  1  : E6NUM-E6NVM- 1  : E6  <L  ,  1 >  *0 
GOTO  0070 
NEXT  1C 
NEXT  L 

FOR  M>0  TO  30 

IF  E7  < M , 1 ) a 0  GOTO  0200 

E7NUMaE7NUM*l : E7 < M , 2 > aE7 < M , 2 > -  1 

IF  E7 (M i 2  >  aO  THEN  GOSUB  10330  ELSE  0130 

GOTO  0200 

HDaRND 

IF  RD  > AR7  GOTO  6170 
GOSUB  10400 
GOTO  6200 
RD.RND 

IF  RD >  E7P  GOTO  6200 
E7(M, 1 ) aO : E7NUMaE7NUM- 1 
NEXT  M 

IF  0  <  RT  GOTO  6240 

IF  B  MOD  NHPaO  THEN  GOSUB  10440 

IF  B>  230  GOTO  0270 

E3S(B)aE3S<B) +E3NUM 

E0S<B)aE6S<B)*E0NUM 

67S ( B ) aE7S ( B ) +E7NUM 

NEXT  B 

IF  2-REPS  THEN  GOTO.  0290  ELSE  GOTO  8240 
CL3:  BEEP  .'LOCATE  10,10 

PRINT  "PRINTING  OF  OUTPUT  IS  IN  PROCESS" 

IF  F *  a " V "  OH  F 1  a " y "  GOTO  0370 

IF  RP-3  THEN  AAa4 

IF  HP  a  4  THEN  AA-3 

IF  RP-0  THEN  AA-2 

C«RT 

GOTO  6390 

C-RP 

AA-1 

FOR  T»AA  TO  MO/RP 

Va( Z*3TAT<T , 2 ) -STATIT, 1)  2>/<2*<S-l>> 

Cl  a  ( 1 . 643* ( SOR ( V)) ) / SOH < Z ) 

AVE  »  STATCT, 1 ) >Z 

LWBND  »  AVE  -  Cl 

UPEND  a  AVE  ♦  Cl 

P9TR»< (CP-C1NTC AVE) ) / CP) *100 

FCA«CINT< AVE) 

LPRINT  USING  "»#i»";C; 

LPRINT  ,  , 

LPHINT  USING  "###  ";FCA; 

LPRINT  “ 

LPRINT  USING"*##  .»  LWBND ; UPBND ; SQK < V >/ SOR < Z >; PSTH 

C-C+HP 

NEXT  T 

IF  I  N I  a  "  N 11  OR  IN»a"n"  THEN  6830 
LPRINT  CHH» ( 12 ) 

LPRINT  3PC< 3) "MINIMUM  NCO  STRENGTH  BEFORE  REPLACEMENTS" 

LPRINT  SPC  <  3  )  " - - - " 

LPRINT 

LPRINT  "MONTH", "E5  STR","E6  STR" ,"E7  STB" 

LPRINT 
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(■610  IF  F  * ■ " Y"  OR  F  *  a  "  y  "  GOTO  6670 
<•620  CC-RT 

(1630  IF  MR  Pa  3  THEN  AA-4 
6640  IF  NRP-4  THEN  AA-3 
6600  IF  NRP-6  THEN  AA-2 
6660  GOTO  6690 
6670  CC-NRP 
6660  AA-1 

6690  FOR  TO- AA  TO  MO/NRP 
6700  AV3  -C I NT <  STS  < TO )  /  Z  ) 

6710  AV 6 aC I NT ( 9T6  < TO )  /  Z  > 

6720  AV7aCINT<ST7<T0> / Z ) 

6730  IF  AV3)SE3  THEN  TT *  -  "  *  "  ELSE  TT la"  " 

6740  IF  AV6  >  SE6  THEN  T6*«"*"  ELSE  T6I-"  •' 

6730  IF  AV7  >  SE7  THEN  T7I-"*"  ELSE  T7I-"  ■* 


6760 

LPR INT 

USING 

"#•»") CC i : 

LPR  t  NT  , 

; 

6  770 

LPR I NT 

USING 

"(•##" ; AV3 ; 

: LPR 1  NT 

" '  TT*  ; 

: LPR INT 

6780 

LPR I NT 

USING 

"*##“ ; AV6 ; 

: LPR INT 

" "T6  *  ; 

; LPR INT 

6790 

LPR I NT 

USING 

"###"; AV7 ; 

: LPR I  NT 

“  "T7  * 

6600  CC-CC+NHP 
6610  NEXT  TO 

6620  LPR I  NT : LPR I NT : LPR I  NT :  LPR  I  NT  "* -  INDICATES  OVER STRENGTH " 

6830  IF  A  *  »  "  N  "  OH  Al-"n"  TH^N  7130 

6840  IF  MO  >  230  THEN  MOO  a  230  ELSE  MOOaMO 

6830  LPR INT  CHR»< 12) 

6860  LPR I NT  SPC ( 20 ) "MONTHLY  UNIT  STRENGTH  BY  GRADE" 

6870  LPR  I  NT  SPC  <  20  >  " - - " 

6880  LPR INT 

6890  LPR I  NT  "MONTH"  TAB<12)  "El-4"  TAB<24)  "E3*"  TAB  <  36  >  "E6s"  TAB(48)  "E7»" 

6900  LPR I NT  TAS<36>  "%  UNIT  STR/NCO  STR" 

6910  LPR I  NT 

6920  FOH  0-1  TO  MOO 

C930  AVaMON(O) / Z : US-CINTi AV ) 

8940  E3NU«CINT<E3S(0) /Z) 

6930  E6NU-C I  NT ( E6S ( 0 )  I Z) 

6960  E7NU-CINT(E73(0) /Z) 

6970  IF  E3NU ) 9E3  THEN  TT1»"*"  ELSE  TT*-"  " 

6980  IF  E6NU>3E6  THEN  T61."»"  ELSE  T64«"  '* 

6990  IF  E7NU73E7  THEN  T7*»"*"  ELSE  T7*»"  " 

7000  TST-CP  +  SE3  +  3E6  +  SE7 

70  10  TS»U3+E3NU*E6NU+E7NU : PPTa  <  T3 ( T3T  > *  100 
7020  IF  IN*a"N"  OR  IN*-"n"  THEN  7030 
7030  NST*SES+SE6+3E7 

7040  NS-ESNU+E6NU+E7NU : NT- (N8/NST) *100 
7030  LPR I  NT  USING  " fl *# " , 0 ;  : L PR  I NT  TAB<12>; 

7060  LPR I  NT  USING  US ;  : L PR  I  NT  TAB (24); 


7070 

LPR I  NT 

USING 

"##*" 

1  E3NU  i  : 

LPR I  NT  ' 

"TT  *  ; 

: LPR INT 

TAB  <  3 6  )  ; 

7080 

LPR I  NT 

USING 

;  E6NU  ;  : 

LPR INT  " 

"T6  1  ; 

:  LPR I  NT 

TAB ( 4  8  )  ; 

7090 

LPR I  NT 

USING 

; E7NU , 

LPR INT  ' 

"T7  »  , 

: LPR INT 

TAB  <  60  )  ; 

7  100 

LPR INT 

USING 

"###  . 

•  "  ;  I*PT; 

7  110 

LPR I  NT 

ii  i  ii  . 

7  120 

LPR I  NT 

USING 

"#*•  . 

#•' ;  NT 

7130 

NEXT  0 

7140 

LPR I  NT : 

LPR  I  NT 

: LPR INT : LPR INT  "*  -- 

--  INDICATES 

OVER STRENGTH 

7150 

IF  BN  *  a 

"N"  OR 

BN  *  a 

"n"  THEN  8250 

7160 

IF  Ft-" 

Y"  OR 

F*a"y 

"  THEN 

8230 

7  1  70 

IF  HP. 3 

THEN 

7160 

ELSE  GOTO  7190 

7  1  80 

AAo 4  :  SB 

-8 : CC- 

1  2  :  DD 

■16: EE* 

20 : GOTO 

7230 

7190  IF  RP»  4  THEN  7200  ELSE  GOTO  7210 
7200  AA.3  SB-6 : CC-9 : DD- 1 2 : EE- 1  3  : GOTO  7250 
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7210  IP  RP.6  THEN  7240  ELSE  GOTO  7220 

7220  LPBINT  "BATTALION  STRENGTHS  UNABLE  TO  BE  CALCULATED  FOR  ROTATION." 

7230  GOTO  4230 

7240  AA»2 :BB«4;CCa6:DDa8:EE»10 
7230  LPRINT  CHRt 112) 

7240  LPRINT  3 PC ( 1 0 ) " BATTAL I ON  FIRST  TERMER  COHORT  REPLACEMENT  PACK AGE3" 

7270  LPRINT  SPC(IO)" - - - - - "  :  L  PR  I  NT 

7280  LPRINT  TARI22)  "90%  CONFIDENCE  INTERVAL" 

7*90  LPRINT  "MONTH"  TAB  <  8  >  "GO"  TAB < 1 2 )  “PKG  SIZE"  TABI24)  "LOWER  B"  i 
7300  LPBINT  TAB(36)  "UPPER  B"  TAB<48)  "STD  DEV"  TAB(39>  "%  UNIT  STR" 

7310  LPRINT 
7320  CaHT 

7330  FCAaO : ACA-0 : 8CA-0 : GCA .0 : DCA-0 
7340  FOR  T-AA  TO  MO/RP 

7330  V.(Z*STAT(T, 2)-STAT<T, 1 )  2  /  /  (  Z  *  <  Z  -  1  >  > 

7380  Cl  a  <  1  . 643*<S0R< V) )  ) /SQK(Z  ) 

7370  AVE  a  STAT  <  T ,  1) IX 
7330  LWBND  -  AVE  -  Cl 
7390  UPBND  -  AVE  +  Cl 
7  4  00  PSTR»(  < CP -Cl  NT (AVE)  >  /C?>  *100 
7410  FCA-C1NT< AVE) 

7420  IF  t<8B  GOTO  7800 
7430  ZA-T-AA 

7440  VAa ( Z*3TAT  <  ZA ■ 2  ) -STAT ( ZA ,  1 )  2)/(Z*(Z-l>> 

7490  AC  I  •  (  1  . «43* (30R( VA)  )  > /SOR(Z) 

7480  AAVE  ■  3TAT(ZA.t)/Z 
7  4  70  LWA  a  AAVE  -  AC  I 
7480  UPA  a  AAVE  +  AC  I 
7  4  90  PSA-<  (CP -Cl  NT (AAVE) ) /CP) *100 
7300  ACAaCINT( AAVE) 

7310  IF  T(CC  GOTO  7800 
7320  BZA-T-BB 

7530  VBa ( Z*STAT ( BZA . 2 ) -STAT  <  BZA  < 1 )  2>/<Z*(Z-l)> 

7340  BCt  »  ( t . 843* ( SQH ( VB) ) ) /9QH< Z) 

7330  BAVE  a  STAT ( BZA , 1 )/ Z 

7380  LWB  -  BAVE  -  BC I 

7370  UPB  a  BAVE  +  BC I 

7380  PSBa ( <CP-CINT( BAVE) ) /CP ) *1 00 

7390  BCAaC I NT ( BAVE ) 

7600  IF  COMP  a  3  GOTO  7800 
7610  IF  T(DD  GOTO  7800 
7620  CZaT-CC 

7630  VVC» ( Z*STAT(CZ , 2 ) -STAT (CZ , 1 >  2>/(Z*(Z-!>) 

7640  CCI  a  ( 1 . 643*<SOR(VVC) ) ) /SORtZ ) 

7630  CAVE  a  STAT ( CZ ,  1  )  /  Z 

7660  LWC  a  CAVE  -  CCI 

7670  UPC  »  CAVE  +  CCI 

7  6  80  PSCa( ( CP-C I  NT  <  CAVE )  ) /CP) *100 

7690  OCAaC I NT ( CAVE ) 

7700  IF  COMPa  4  GOTO  7800 
7710  IF  T  <  EE  GOTO  7800 
7720  DZ-T-DD 

7730  VDa ( Z*STAT ( DZ , 2 ) -STAT ( DZ , 1 )  2>/(Z*(Z-l>) 

7740  DC  I  >  (  1  . 643* <SOR ( VD) )  > /SOH(Z) 

7730  DAVE  a  STAT(DZ,1)/Z 
7  7  60  LWD  »  DAVE  -  DC  I 
7770  UPD  a  DAVE  ♦  DC! 

7  7  80  PSD- (  (CP-C I  NT (DAVE) )  / CP ) *1 00 
7790  DCAaQ I  NT ( DAVE  > 

7900  LPRINT  USING 


f 


4 
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7810  LPHINT  TAB <  8 >  "A"  TAB ( 1 3 >  ; 

7820  LPHINT  USING  " »##“; FC A i 
7830  LPHINT  TAB (24) 

7  8  40  LPHINT  USING  ••##*.»";  LWBNB  LPR  I  NT  TAB<3«>; 

7830  UPS  I  NT  USING  11  ###.»";  UPBND  L  P8I  NT  TAB<48>; 

7830  L PH  I  NT  USING  “ #* # . * " ) SOH ( V ) / SOH < Z > ;  : LPR I NT  TAB<60>; 

7870  LPHINT  USING  »###,#"; PSTH 

7880  IF  T  <  BB  GOTO  8180 

7890  LPHINT  TAB ( 8 )  "0"  TAB ( 1 3 ) ; 

7900  LPHINT  USING  " ## # " I  AC A ;  : L PH  I  NT  TAB<24); 

7910  LPHINT  USING  LWA  LPR  I  NT  TAB  (  36  )  ; 

7920  LPHINT  USING  UPA  LPR  I  NT  TAB<48> 

7930  LPHINT  USING  “ *9 • . 8 " ; SOH < VA > I SOH ( Z >  i  :  LPHINT  TAB<«0); 

7940  LPHINT  USING  " **#.*■*;  PSA 

7930  IF  T  < CC  GOTO  8180 

7960  LPHINT  TAB  < 0 1  "C"  TAB<13>; 

7970  LPHINT  USING  “ *88" ; BCA ; :  LPHINT  TAB<24>; 

7980  LPR I  NT  USING  ” ## # . • " ; LWB i  :  LPHINT  TAB ( 3  £ )  ; 

7990  LPHINT  USING  "*#*.#";  UPB  ;  :  LPR  I  NT  TAB<48>; 

8000  LPHINT  USING  "  »  •  It  .  »  “  ;  SOH  (  VB  >  /  SOH  <  Z  >  ;  :  LPHINT  TAB<60) 

8010  LPHINT  USING  "*##.#";PSB 

8020  IF  COMP  -  3  GOTO  8180 

8030  IF  T  <  DD  GOTO  8180 

8040  LPR I  NT  TAB < 8 )  "D"  TAS<13>; 

8030  LPR  I  NT  USING  ••  *#  #  “  ;  GCA  i  :  LPHINT  TAB<24>; 

8060  LPHINT  USING  " 8# » . • " ; LWG ; :  LPHINT  TAB(36)i 
8070  LPHINT  USING  "#*#.#"; UPC ;  :  LPHINT  TAB ( 48 )  ; 

8080  LPHINT  USING  "#*».#“; SOH  <  VVC  >  V 3QR  <  Z  >  ;  :  LPHINT  TAB(60) 

8090  LPHINT  USING  "*##.# " i PSC 

8100  IF  COMP-4  GOTO  8180 

8110  IF  T  <  EE  GOTO  8180 

8120  LPEINT  TAB  <  8 )  "E"  TAB < 1 3 1 ; 

8130  LPHINT  USING  " # « * " i OCA ; :  LPHINT  TAB < 2 t ) i 
8140  LPHINT  USING  “  #*.#.#“;  LWO  ;  :  LPH  1  NT  TAB<36>; 

8130  LPR  I  NT  USING  11  ##*  .  8"  ;  UPD  i  :  LPH  INT  TAB<48>; 

8160  LPHINT  USING  '•#*#.*";  SQH  (  VD  >/ SOH  <  Z  >  ;:LPHINT  TAB  <  fi  0  >  ; 
8170  LPR  I  NT  USING  "  9  •  <t  .  #  "  ,  PSD 
8180  IF  T<BB  GOTO  8210 

8190  LPHINT  TAB  <  13)" - “ :  LPR I  NT  TAB (  1 3 )  ; 

8200  LPHINT  USING  "##*"; FCA+ACA+BCA+GCA+DC A 

3210  LPHINT 

8220  C-C+RP 

8230  NEXT  T 

8240  NEXT  Z 

8230  LPHINT 

8260  LPHINT  DATE*, TIME! 

8270  GOTO  10830 
8280  HUN  "LOGO" 

'8290  END 

8300  IF  UPOR<D,4>-0  GOTO  8320 

8  3  10  IF  UPQR  <  D ,  4 )  <MT  GOTO  84  20 
8320  RD-HND 

8330  IF  HD >  HE  GOTO  8510 

8340  FOR  K-0  TO  123 

8330  IF  PQK ( X , 1 ) ) 0  GOTO  8330 

8360  POHt K , 1 > » 1 3 : PQH < K , 2 ) »AE  + 1 

8370  OOTO  8390 

8380  NEXT  X 

8390  INNUM. INNUM- 1 


8400  UPOR  <D,  2 ) =0 
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0410  RETURN 
8420  RD-RND 

0430  IF  RDIRRC  GOTO  8010 

0440  FOR  KaO  TO  12S 

04S0  IF  FOR  <  K  j 1 >  >  0  GOTO  8400 

0450  FOR  <  K , 1) -I  3 :  FOR ( K , 2  >«UPQRID, 4>  *  1 

0470  GOTO  0490 

0400  NEXT  K 

9490  I NNUM- I NNUM- 1 

0300  GOTO  0920 

0910  INNUMa INNUM- 1  :  I N LOSS - I NLOSS +  1 

0320  UPQH ( D / 2  >  «0 

8330  RETURN 

3340  VLOSS a VLOS S  +  1 

0330  PORI J  ,  1  >-0 

8300  VNUMaVNUM- 1 

0370  RETURN 

8300  IF  FOR  I J i 2  >  «0  GOTO  3800 
0390  IF  PQR I  J  ,  2  >  <MT  GOTO  8680 
8000  RDaRND 

0610  IF  RD>RE  GOTO  3710 

8620  FOR  I J , 2 ) ■ AE 

8630  PORI J , l ) al 3 

8640  RNUMaRNUM* 1 

8630  GOTO  0720 

0650  RDaRND 

8070  IF  RD  >  RRC  GOTO  8740 

8600  POR  <  J i  l  >-13 

8690  HNUM.HNUM+1 

8700  GOTO  8720 

8710  PORIJ, 1 >-0 

8720  VNUM-VNUM-l 

8730  VLOSS-VLOSS* 1 

8740  RETURN 

0730  Y3LOSS-Y3LOSS+ 1 

8700  POR  I  3 i  1 ) -0 

8770  Y3NUM-Y3NUM-1 

8780  RETURN 

8790  IF  PORIJ, 2)-0  GOTO  0810 
8800  IF  POH I  J  ,  2  )  < MT  GOTO  8870 
3010  RDaRND 

8020  IF  RD  >  RE  GOTO  8920 

3830  PORIJ, 2). AE 

8040  PORIJ ,  1  ) -  1 3 

8830  RNUM-RNUM+ l 

8860  GOTO  8930 

8870  RDaRND 

8880  IF  RD  >  RRC  GOTO  8930 
3890  PORIJ  ,  1  )  -  1  3 
0900  RNUM-RNUM+1 
3910  GOTO  8930 
8920  PORIJ , 1 ) -0 
8930  Y3NUM-Y3NUM- 1 
8940  Y3L0SSaY3LO9S+l 
8950  RETURN 
8960  Y4LOSS- Y4LOSS+ 1 
8970  Y4NUM-Y4NUM- 1 
8980  POR 1 J  ,  1 )-0 
8990  RETURN 

9000  IF  PORIJ, 2)»0  GOTO  9020 
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90  10  IF  PQR (  J  ,  2  >  < MT  GOTO  9080 
9020  RD»RND 

9030  IF  RD>  RE  GOTO  9130 

9040  PO R<J,2>»AE 

9030  POR  <  J  ,  DilS 

9060  RNUM-RNUM+ l 

9070  GOTO  9140 

9080  RD-RND 

9090  IF  RD1HBC  GOTO  9160 
9100  POR  <  O' ,  1  )»1S 
9110  RNUM-RNUM+t 
9120  GOTO  9140 
9  130  PQR  <  3 , 1 ) m o 
9140  Y4NUMsY4NUM- 1 
9130  Y4LOSS-Y4LOS8+I 
9160  RETURN 
9170  J3L039-J3LOSS+ 1 
9180  J3NUM-J3NUM- 1 
9190  POR (  J  ,  1  > »0 
9200  RETURN 

9210  IF  PQR(J,2>»0  GOTO  9230 
9220  IF  POR { J , 2 ) < MT  GOTO  9290 
9230  RD-RND 

9240  IF  RD1KE  GOTO  9310 
9230  PQH  <  J ,  2 ) a J  AE 
9280  POR  <  u  i  n-13 
9270  RNUM-RNUM+1 
9280  GOTO  9320 
9290  RD-RND 

9300  IF  RD.1RC  GOTO  9340 
9310  PQR1J,  1  )«0 
9320  J3NUM-J3NUM-1 
9330  J3L03SaJ31i0SS  +  1 
9340  RETURN 
9380  J  4  LiOSS  a  J  4  LOS  3+  l 
9360  J4NUM-J4NUM- 1 
9370  POR  <  J ,  1  >»0 
9380  HETURN 

9390  IF  FOR  <  J .  2  )  »  0  GOTO  94  10 
9400  IF  POR ( J , 2 ) 1MT  GOTO  9470 
9410  RDtRND 

9420  IF  RD1RE  GOTO  9490 
9430  PQR <J . 2 ) -JAE 
9440  PQR  <J ,  1  ) »  1  5 
9430  RNUM-RNUM+1 
9460  GOTO  9300 
9470  RD-RND 

9430  IF  RD  >  SO  GOTO  9520 

94  90  POR ( J ,11-0 

9300  J4NUM-J4NUM- l 

9310  J4L03S-04L0S3+ 1 

9320  RETURN 

9330  FOR  K-0  TO  73 

9340  IF  ES<K,1)>0  GOTO  9680  ' 

9330  IF  POR ( J ,  1  )  «  1  THEN  E3(K,1>»2 

9360  IF  POP ( J  ,  1  )  a  6  THEN  E3CX,1>«2.3 

9370  IF  POR  <  J  ,  1  )  v  2  THEN  E3(K,l>-3 

9580  IF  PQMJ.l).?  THEN  ES(K,1)«3.3 

9390  IF  PQHvJ.lJ-G  THEN  E3-'K,1>=4 

9600  IF  POR(J,l)»8  THEN  E3<K,l>«4  3 


D- IV- 18 


CAA-SR-87-18 


9610 

IF 

pob  ( 

J, 

1 

)  a  4  THIN 

E3  <  X  ,  1 

)  -3 

9620 

IF 

P0R( 

3, 

l : 

1.9  THEN 

E3<K,  l 

)  »  3  . 

9630 

IF 

por< 

3  . 

1 

>■3  THEN 

E3  <  K  ,  1 

)  a  6 

9640 

IF 

POR  < 

3, 

1  ] 

1.10  THEN 

E3  <  X  , 

1  1  a  6 

9630 

IF 

POR  < 

3  , 

1 

S-l 3  THEN 

ES  <  X  , 

1)>1 

9660 

E3 

<K  ,  2  ) 

-POR  (  J  ,  2  )  +  1 

9670  GOTO  9690 

9680  NEXT  X 

9690  RETURN 

9700  FOR  KaO  TO  73 

9710  IF  E3  <  X  ,  1  1  >  0  GOTO  9730 

9720  IF  UPORtD, 4>-UP0R<D, 2) > 12  THEN  S3  <  X  ,  2  >  -  UPQR  <  D  ,  2  1  ELSE  E5 ( X , 2 ) • UPOH ( D , 4 ) 

9730  E3(X, 1 )al : E3 < X , 2 ) «E3 (X , 21  +  1 

97 60  GOTO  9760 

9730  NEXT  X 

9760  RETURN 

9770  REM  REPLACEMENT  MODULE 

9780  IF  VNUM+Y3NUM+Y4NUM*J3NUM+J4NUM+RNUM+ INNUM> -CP  GOTO  10130 
9790  IF  CP  1  CPP  THEN  A-CP  ELSE  A.CPP 
9800  FOR  KaO  TO  A- 1 

9810  IF  VNJM+  Y3NUM+  Y  4 VUM» J  3NUM  + J  4NUM  +  RNUM  + I NNUM-CP  GOTO  10)30 

9820  IF  POR  ( K ,  1 ) >  0  GOTO  10120 

9830  IF  VE  -  0  GOTO  9910 

9840  IF  VE  a  100  GOTO  9870 

9830  RDaRND 

9860  IF  RP1VV  GOTO  10090 
9670  POR  <X , 1) -6 
9880  POR  <X,2).VT~TT 
9890  VNUM-VNUM+ 1 
9900  GOTO  10120 
9910  RDaRND 

9920  IF  RD1TJ  GOTO  10030 
9930  HDakND 

9940  IF  KD1J3Y  GOTO  9990 
9950  POR (X , 1 1 -9 

9960  IF  36-TTUET  THEN  POH < X , 2 1 -JET  ELSE  POR  <  X  ,  2  >  »  36  -  TT 
9970  J3NUM^J3NUM-f  1 
9980  GOTO  10120 


9990  POR ( K  ,  1  )  -  1  0 

10000 

IF  48  -TT  <  JET  THEN  PQH<X, 21-JET 

ELSE  POR  < X ,  2 1 -48-TT 

10010 

J4NUMa J  4NUM+ 1 

10020 

GOTO  10120 

10030 

RDaRND 

10040 

IF  RD1YY  GOTO  10090 

10030 

Y3NUM-Y'.NUM+1 

10060 

POH  <  X ,  11-7 

10070 

POH  (X,2)«36-TT 

10080 

GOTO  10120 

10090 

Y  4NUMa  Y4NUM  +  1 

10100 

POR(X, 1 1.8 

10  110 

POH  <  X , 2 ) -48-TT 

10  120 

NEXT  X 

10130 

RETURN 

10140 

IF  E3  <  X , 2 1 »0  GOTO  10  180 

10130 

IF  E  5  <  X  ,  .2  1  < MT  THEN  10160  ELSE 

10  180 

10  160 

E3  <  K  ,  1  1  -  1  1 

10  170 

GOTO  10210 

1  0  1  80 

RD-RND 

10  190 

IF  RD1NPE  THEN  10210 

1  0200 

ES  '  K  ,  l  1  »  1  0  :  E5  <  X  ,  2  1 -NAE 
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10210  RETURN 
10220  E3NUM-E3NUM- 1 
10230  ES  <  K ,  1 ) *0 
10240  E3LOSS-E3LOSS+ 1 
10230  RETURN 

10260  IF  E6 ( L ,  1  > •  1  0  GOTO  10310 
10270  RD-RND 

10280  IF  RD>NRE  THEN  10310 

10290  Eft  <  la .  1  >  l  0  :  Eft  <  L  ,  2  >  *>NAE 

10300  GOTO  10340 

10310  E6NUM-E6NUM- 1 

10320  Eft  <  1*  i  l)-0 

10330  E6L09S-E6L0S9+ 1 

10340  RETURN 

10330  IF  E?  < M ,  1  )  -  1  0  GOTO  10400 
10360  RD-RND 

10370  IF  RD>NHE  THEN  10400 
10380  E7 (M, 1 > ■ 10 : E7 (M , 2 > «NAE 
10390  GOTO  10430 
10400  E7VUM-E7NUM- l 
10410  E7(M,  1  >-0 
10420  E70O9S.E7LOSS+ 1 
10430  RETURN 
10440  00-0/NRP 

10430  3T3 ( 00 )«8T3(00> +E3NUM : E3 LOSS ■ 0 
10460  ST6<QQ>-9T6'GO> +E6NUM : E6 LOSS  - 0 
10470  ST7(00>-3T7<00) *E7WUM  E7L033-0 

10480  IF  B <  NRT  GOTO  10820 

1Q490  IF  E3NUM>-CINT(9E3*E3F>  GOTO  10600 

10300  FOH  A-0  TO  73 

10310  IF  E3  <  A ,  1 >  >  0  GOTO  10590 

10320  RD-RND 

10330  IF  RD)AOT  GOTO  10360 
10340  E5(Ai  1  >  •  1  ES  <  A ,  2 )  ■  LOT 
10350  GOTO  10370 
10360  ES 1  A ,  1 > -  1  : E3 ( A , 2 ) -E3T 
10370  ESNUM-E3NUM+ 1 

10380  IF  E3NUM>.CINT<SE34ESF>  GOTO  10600 
10390  NEXT  A 

10600  IF  EONUM>-CINT<SE6*E«l')  GOTO  10710 
10610  FOR  A  -  0  TO  30 
1  0620  IF  Eft  <  A  ,  1  >  >  0  GOTO  10700 
10630  RD-RND 

10640  IF  RD >  AOT  GOTO  10670 
10630  E  6  <  A , 1  >-l  :  E  6  <  A , 2 ) ■ U  OT 
10660  GOTO  10630 
10670  E6 ( A  ,  1 ) »  1  : E6 ( A , 2 > -E6T 
10680  E6NUM-E6NUM+ 1 

10690  IF  E6NUM>  »C I  NT  (3E64E6F)  GOTO  10710 
10700  NEXT  A 

10710  IF  E7NUM>  «G I  NT  <  0E7  *E7F )  GOTO  10820 
10720  FOR  A  »  0  TO  30 
10730  IF  E7  (  A  ,  1 >0  GOTO  10010 
10740  RD-RND 

10730  IF  RD  >  AOT  GOTO  10730 
10750  E7 < A , 1 ) » t : E7 ( A , 2 > -LOT 
10770  GOTO  10790 
10780  E7 ( A i l)-l :E7(A,2)»E7T 
10790  E7NUM-E7NUM+ 1 

10300  IF  E7N’JM>-CINT<SE7*E7F>  Dt  TO  1  0  8  2  C 
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10810  NEXT  A 
10820  RETUHN 
10800  Cl.S  :  BEEP 
10840  LPEINT  CHH* (12) 

10  850  PRINT; PRINT : PR  I  NT : PR  I NT ; 8EBP 

10860  PRINT  "YOU  CAN  CONTINUE  THE  SESSION  AND  MAKS  MODIFICATIONS  TO" 
10870  PRINT  "ANY  OR  ALL  OF  THE  INPUT  VARIABLES  OR  CHANGE  DATA  FILES." 
10880  LOCATE  10.10 

10890  PRINT  "TYPE  A  *Y*  TO  CONTINUE  THE  SESSION  OH  AN  *N*  TO  END  IT." 
10900  Y t- INPUT* < t ) 

10910  IF  Y  •  ■  11 Y  "  OR  Y»«“y"  THEN  10930 

10920  IF  Y*»"N"  OR  Y*»"n"  THEN  GOTO  13130  ELSE  SEEP ; GOTO  10880 
10230  CLS 

10940  LOCATE  10,10 

1O9S0  PRINT  "DO  YOU  WANT  TO  CHANGE  ANY  OR  AH.  OF  THE  VARIABLES  OS" 
10960  PRINT  "CHANGE  DATA  FILES?" 

10970  LOCATE  13,13 

10980  PRINT  "TYPE  A  *Y*  FOR  YES  AND  AN  *N*  FOR  NO." 

1 0S90  Y»  » INPUT* (  1  ) 

11000  IF  Y**"Y"  OR  Y*«"y"  THEN  11Q20 

11010  IF  Y  *  * "N"  OR  Y*-"n"  THEN  14230  ELSE  SEEP ; GOTO  10930 

1  1020  CLS: LOCATE  10,  10 

11030  PRINT  "TYPE  *V*  TO  CHANGE  INDIVIDUAL  VARIABLES  " 

1  1040  LOCATE  12,10 

11030  PRINT  "OR  *0*  TO  CHANGE  THE  DATA  FILE  FOR  ALL  INPUT  VARIABLES" 

1  1060  Y* - INPUT* ( l ) 

1  1070  IF  Y  *  •  "  V  "  OR  Y*»"v"  THEN  11110 

1 1 080  IF  Y  4 ■ " D"  OR  Yl«"d"  THEN  1  1090  ELSE  BEEP : GOTO  11030 

11090  LOCATE  t 3 , 1 0 : L 1 NE  INPUT  "ENTER  THE  NAME  OF  THE  DATA  FILE  ";DF» 
l  1  100  GOTO  370 
11110  CLS 


11120 
11130 
11140 
11150 
11130 
11170 
11180 
11190 
l  1  r.  0  0 
112  10 
11220 
1  1  230 
11240 
11230 
1  1  260 
11270 
113  8  0 
11290 
1  !  ’00 
113  10 
11320 
1  1330 
11340 
1  1  330 
1  1360 
11370 
11380 
11390 
11400 


PRINT  'A--ENTER  THE  TOTAL  1ST  TEHM6H9  IN  ’•HE  UNIT--  "CP 
PRINT  “  EXPECTED  PERCENT  OF  FI'.L--  "EF 

CPP»CINT( (EF*  01) *CP> 

PRINT  “ B  —  ENTER  THE  EXPECTED  PERCENTAGE  CF  VEL  SOLD  I ERS " VE 
VV-VE*  01  : VEL  »C I NT ( CP* VV ) 

PRINT  "C--ENTER  THE  LENGTH  OF  A  VEL  CONTRACT  IN  MONTHS--"VT 

PRINT  "D — ENTER  THE  TOTAL  PERCENTAGE  OF  SOLDIERS  EXPECTED  FOR  JET--"JE 

TJ-JE*  01; PJ-CINT (CP*TJ ) 

PRINT  "E--ENTEH  THE  PERCENTAGE  EXPECTED  FOR  3  YR  JET  ENL I STMENTS- - " J 3 3 


J  3 Y ■ J33* . 01  : J3«CINT< J3Y*PJ )  :J4-PJ-J3:J44»'00-J33 

PRINT  "  REMAINING  SOLDIERS  ARE  ASSUMED  TO  S3  *  YR  JET  ENL I STEES- - " J 4 4 

PRINT  ’T- -ENTER  THE  TOUR  LENGTH  FOR  JET  SOLDIERS  IN  MONTHS - "JET 

PRINT  "G--ENTIT1  THE  PERCENTAGE  OF  SOLDIERS  THAT  ARE  EXPECTED  TO" 

PRINT  “  EXTEND  THEIR  ENLISTMENT  FOR  A  CONUS  ASSIGNMENT" 

PRINT  "  JET  90LDIERS  - "CA 

PRINT  "  UNACCOMPANIED  SOLDIERS  - "CCA 


PRINT  "  MIMIMUM  TIME  REQUIRED  TO  ROTATE  TO  COM'S - "MT 

RRC^CCA*  .  0 1 
RC«CA* . 0 1 

PRINT  "K--ENTFR  THE  EXPECTED  2  ELOENT AGE  OF  3  YR  EN L I STMENTS - - " Y 3 
Y  Y  a  Y  3  *  .  0  1 

YR3-CINT < (CP-VEL-PJ) *YY) 

YR4-CP-VEL-Y83-PJ 

Y4.100-Y3 

PRINT  "  8  EMA INI  ?<G  SOLDIERS  ARE  ASSUMED  TO  BE  4  YR  ENL I STEES-- " Y4 

PRINT  "1 --ENTER  THE  TOUR  FOR  UNACCOMPANIED  SOLDIERS  IN  MONTHS - "ST 

PRINT  " J - - ENTER  THE  EXPECTED  TRAINING,  LEAVE  AND  TRAVEL  TIME  IN  MONTHS" 
PRINT  "  THAT  A  SOLDIER  WILL  HAVE  BEFORE  ARRIVING  AT  HIS  UNIT--"TT 
PRINT  "*V*  IF  YOU  JISH  TO  DISCONTINUE  THE  SESSION,  PRESS  ENTER.  ***" 
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11410  PRINT 

11420  PRINT  "YOU  MAY  CHANGE  ANY  OR  ALL  OF  THE  VARIABLES.  ENTER  THE  LETTER  OF" 
11430  PRINT  "THE  VARIABLE  YOU  WANT  TO  CHANGE.  WHEN  YOU  HAVE  FINISHED  MAKING" 
11440  PRINT  "THE  CHANGES  TO  THIS  DATA, TYPE  I N  AN  »  X  *  TO  CONTINUE." 

11460  VS- INPUTSC 1 > 

11460  PRINT 

11470  IF  VS»"X"  OR  V9-"X"  THEN  11660 

11400  IF  VS»"A“  OR  V9«"a"  THEN  11600 

11490  IF  VS-'B"  OR  VS-"bH  THEN  11630 

11600  IF  VS-"C"  OR  VS«"C“  THEN  11660 

11610  IF  VS-"D"  OR  VS-"d“  THEN  11670 

11620  IF  VS-"E“  OR  VS-"«"  THEN  11690 

11630  IF  VS-"F"  OR  VS-"f“  THEN  11710 

11640  IF  VS-"G"  OR  VS«“g"  THEN  11730 

11660  IF  ''S-"H"'  OR  VS«"h“  THEN  11790 

11660  IF  VS- .  OR  VS- “ i "  THEN  11B10 

11670  IF  VS»"J"  OR  VS-"j“  THEN  11030 

11680  IP  VS>"J"  OR  VS>" j"  THEN  11020 

1  1690  IF  VS'""  THEN  16150 

11600  INPUT  "A — ENTER  THE  TOTAL  1ST  TERMERS  IN  THE  UNIT  ";CP 
11610  INPUT  "  EXPECTED  PERCENT  OF  FILL  " j  EF 

1 1620  GOTO  11110 

11630  ILPUT  "B— ENTER  THE  EXPECTED  PERCENTAGE  OF  VEL  SOLD  I ERS-~"  ( VE 
1 1640  GOTO  11110 

11660  INPUT  "C--ENTER  THE  LENGTH  OF  A  VEL  CONTRACT  IN  MONTHS- : VT 
1  1660  GOTO  11110 

11670  INPUT  "0--ENTER  THE  TOTAL  PERCENTAGE  OF  SOLDIERS  EXPECTED  FOR  JET";JE 
1  1680  GOTO  11110 

11690  INPUT  •t--ENTER  THE  PERCENTAGE  EXPECTED  FOR  3  YR  JET  ENL I STMENTS" ; J33 
1 1 700  GOTO  11110 

11710  INPUT  " F  — ENTER  THE  TOUR  LENGTH  FOR  JET  SOLDIERS  IN  MONTHS" I  JET 
1 1720  GOTO  11110 

11730  PRINT  "G--ENTFR  THE  PERCENTAGE  OF  SOLDIERS  THAT  ARE  EXPECTED  To¬ 
ll  740  PRINT  "  EXTEND  THEIR  ENLISTMENT  FOR  A  CONUS  ASSIGNMENT" 

11750  INPUT  "  JET  SOLDIERS  - "iCA 

11760  INPUT  "  UNACCOMPANIED  SOLDIERS  - "iCCA 

11770  INPUT  "  MIMIMUM  TIME  REQUIRED  TO  ROTATE  TO  CONUS - ";MT 

1 1780  GOTO  11110 

1  1790  INPUT  "  H--ENTER  THE  EXPECTED  PERCENTAGE  OF  3  YR  ENi.  I  STMENTS— "  ;  Y3 
1 1000  GOTO  11110 

11810  INPUT  "I --ENTER  THE  TOUR  FOR  UNACCOMPANIED  SOLDIERS  IN  MONTHS"; ST 
1 1820  GOTO  11110 

11830  PRINT  "J--FNTER  THE  EXPECTED  TRAINING,  LF.AVE  AND  TRAVEL  TIME  IN  MONTHS" 
11840  INPUT  "  THAT  A  SOLDIER  WILL  HAVE  BEFORE  ARRIVING  AT  HIS  UNIT“;TT 
1 1850  GOTO  11110 
11860  CLSsPRINT 

11870  IF  AS- " N"  OR  A9«"n"  THEN  69- "NO" 

11880  IF  AS-MY"  OR  AS- “ y“  THEN  B9-"YE3" 

11890  IF  BN3-"N"  OR  BN9-"n"  THEN  6BNS-"N0" 

11900  IF  BNS- " Y "  OR  8NS»"V"  THEN  BBNS-"YES" 

11910  PRINT  "ENTER  THE  PERCENTAGE  OF  EXPECTED  EXTENSIONS  AND  REUPS  FOR  PDA" 
11920  PRINT  “AND  THE  AVERAGE  EXTENSION  LENGTH  IN  MONTHS  OF  THE  TOUR  FOR J " 

11930  PRINT  “  K --UNACCCMPAN I  ED  1st  TERMERS - "REE 

11940  PRINT  "  L--ENTER  THE  AVERAGE  LENGTH  IH  MONTHS - " AE 

11950  PRINT  "  M — JET  SOLDIERS - " JREE 

11960  PRINT  "  N — ENTER  THE  AVERAGE  LENGTH  IN  MONTHS - ”JAE 

1 1970  JRE-JREE* .01 
11980  RE-REE*. 01 

11990  PRINT  "O — ENTER  THE  EXPECTED  PROMOTION  MONTH  TO  E5 — " PT 

12000  PRINT  "P — ENTER  THE  EXPECTED  MONTHLY  PROMOTION  PERCENTAGE  TO  E5--"PPP 
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12010  PP»PPP«.01 

12020  PRINT  "0— ENTER  THE  EXPECTED  MONTHLY  ATTRITION  RATE  IN  PERCENT-- "ARR 
12030  AR»ARR*,01 

12040  PRINT  “R--ENTER  THE  INTERVAL  POR  1ST  TERMER  REPLACEMENTS,  IN  MONT!IS--"RP 
12060  PRINT  "8— ENTER  THE  NUMBER  OF  MONTHS  TO  S  IMULAT£  —  "MO 
12060  PRINT  “T--HOW  MANY  REPET  I  T  IQNS  —  '  REPS 

12070  PRINT  “U— DO  YOU  WANT  A  MONTHLY  L  I  3T  I  NO  OF  UNIT  STRENGTH--  "68 

12060  PRINT  "V— DO  YOU  WANT  BATTALION  TOTALS  FOR  REPLACEMENTS—  " BBN9 

12090  IF  8N8  •  "N“  OR  BN8  «  "n“  THEN  12110 

12100  PRINT"  COMPANIES  IN  THE  BATTALION  13—  "CCMP 

12110  PRINT 

12120  PRINT  “YOU  MAY  CHANGE  ANY  OR  ALL  OF  THE  VARIABLES.  ENTER  THE  LETTER  OF” 

12130  PRINT  “THE  VARIABLE  YOU  WANT  TO  CHANGE.  WHEN  YOU  HAVE  FINISHED  MAKING" 

12140  PRINT  “THE  CHANGES  TYPE  I N  AN  *  X 

12150  PRINT 

12160  PRINT 

12170  Z9- INPUT9< 1 ) 

12190  IF  Z9»"X“  OR  Z9«“H"  THEN  12590 

12190  IF  Z8-“K”  OR  Z8«“kH  THEN  12330 

12200  IF  Z9«"L"  OR  Z9-"l“  THEN  12340 

12210  IF  Z9- ‘M“  OR  Z9o“m"  THEN  123S0 

12220  IF  Z3»“N"  OR  Z9»"rV'  THEN  12360 

12230  IF  Z9«“0“  OR  Z9«“0"  THEN  12370 

12240  IF  Z9«'P”  OR  Z 9 “ “ p “  THEN  12380 

12280  IF  29 ■ "Q“  OR  Z9-“q“  THEN  12390 

12260  IF  Z4«“R“  OR  Z9-“r“  THEN  12410 

12270  IF  2 9 » " S “  OR  Z9-“s“  THEN  12420 

12260  IF  Z 9 « " T “  OR  Z9-“t“  THEN  12430 

12290  IF  Z9»“U“  OR  Z9«"U"  THEN  12440 

12300  IF  ZS-“V“  OR  Z9-“v“  THEN  12S00  ELSE  SEEPiGOTO  11360 

12310  IF  2  9  >  "  V  “  OR  Z  9  >  *'  V  "  THEN  11060 

12320  IF  Z9  > 11  “  THEN  1  1  S60 

12330  IMPUT  “ K --UNACCOMPAN I  ED  1st  TERMERS" i REE IGOTO  11B60 

.2340  NPUT  "L--ENTER  THE  AVERAGE  LENGTH  IN  MONT HS" ; AE > GOTO  11860 

1  2360  INPUT  "M— JET  SOLO  I ERS“ : JREE (GOTO  11860 

12360  INPUT  “N— ENTER  THE  AVERAGE  LENGTH  IN  MONTHS “ i JAE i GOTO  11080 
12370  INPUT  "0--ENTER  THE  EXPECTED  PROMOTION  MONTH  TO  E5“iPT:GOTO  11860 

(2380  INPUT  “F  — ENTER  THE  EXPECTED  MONTHLY  PROMOTION  X  TO  E5" ! PPP : GOTO  11060 

12390  INPUT  “Q— ENTER  THE  EXPECTED  MONTHLY  ATTRITION  RATE  IN  PERCENT" iARR 
12400  GOTO  11060 

12410  INPUT  “R — ENTER  THE  . NTERVAL  FOR  1ST  TERMER  REPLACEMENTS" j RP iGOTO  11860 

12420  INPUT  "S — ENTER  THE  NUMBER  OF  MONTHS  TO  S I MULATE " i MO : GOTO  11860 

12430  INPUT  “T — HOW  MANY  REPET  I T I ONS " ; REPS i GOTO  11060 
12440  PRINT  “U— OO  YOU  WANT  A  MONTHLY  LISTING  OF  UNIT  STRENGTH" 

1 2450  PRINT  "ENTER  ««  Y  ««  FOR  YES , **  N  **  FOR  NO.” 

12460  A9» I NPUT5< 1 ) 

12470  IF  A9  -  “N“  OR  A9  •  ''O'  THEN  12490 

12480  IF  A9  -  “Y"  OR  A9  -  "V"  THEN  12490  ELSE  BEEPiGOTO  12440 

12490  GOTO  11860 

12500  PRINT  "DO  YOU  WANT  BATTALION  TOTALS  FOR  REPLACEMENTS  ?" 

12810  PRINT  "ENTER  ■ ■  Y  « »  FOR  YES , * ^  N  «’  FOR  NO." 

12620  8N9  *  I  NPUT-.9 <15 

1 2630  IF  0N9  »  "N"  OR  8N9  »  “n“  THEN  11060 

12S40  IF  BN9  ■  "Y*  OR  BNP  ■  “y"  THEN  12550  ELSE  BEEPiGOTO  12500 

12550  PRINT  “ENTER  THE  NUMBER  OF  COMPANIES  IN  THE  BATTALION." 

12560  INPUT  "ENTER  EITHER  3,  4,  OR  5”: COMP 
12570  IF  COMP < 3  OR  COMP >5  GOTO  12560 
12580  GOTO  11860 

12590  IF  CF 9  =  "  e"  OR  CF9»"E"  THEN  12670 

12600  CLS i PR  I  NT  “DO  YOU  WANT  TO  INPUT  OR  CHANGE  NCO  DATA?" 
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12610  LOCATE  16,16 

12620  PRINT  “ENTER  «■  V  »*  FOR  YES,**  N  **  FOR  NO." 

12630  I IN9  »  I NPUT9  < 1 ) 

12640  IF  I  I  N$<*“N"  OR  I  I  N9-"n"  THEN  13860 

12660  IF  I  INI  «>  "Y"  OR  I  I  N9  «  "y"  THEN  12660  ELSE  SEEFiGOTO  12B90 
12660  IF  I  N  9  ■  “  N  “  OR  IN9«*"n"  AND  IIN9»“YH  OR  IIN9-“y'  THEN  IN9»"Y“ 

12670  CLS  t  PR  I  NT  "NCO  DATA  t* **«*«*  < 

12680  PRINT 

12690  PRINT  "A— -ENTER  THE  NUMBER  OF  AUTHORIZED  EB» - "3ES 

12700  PRINT  “6— -ENTER  THE  EXPECTED  TOUR  LENGTH  FOR  AN  EB,  IN  MONTHS "E5T 

12710  PRINT  “C-- ENTER  THE  EXPECTED  MONTHLY  PERCENT  OF  ATTRITION  FOR  E6s - " ARB6 

12720  AR6-AR5S* . 0 1 

12730  PRINT  "D-- ENTER  THE  EXPECTED  MONTHLY  PROMOTION  X  OF  E5s  TO  E6 . -"E8PP 

12740  E5P“EBPP* . 0 1 

1 2760  PRINT  "E— ENTER  THE  NUMBER  OF  AUTHORIZED  E6s - "3E6 

12760  PRINT  "F-- ENTER  THE  EXPECTED  TOUR  LENGTH  FOR  AN  E6.  IN  MONTHS - "E6T 

12770  PRINT  “G--ENTER  THE  EXPECTED  MONTHLY  PERCENT  OF  ATTRITION  FOR  E6s “AR66 

12780  AR6«AR66* . 0 1 

1 2700  PRINT  "H— ENTER  THE  EXPECTED  MONTHLY  PROMOTION  X  OF  E6S  TO  E7 - "E6PP 

12800  E6P-£6PP».01 

12010  PRINT  " I --ENTER  THE  NUMBER  OF  AUTHORIZED  E7s - "SE7 

12820  PRINT  “J-- ENTER  THE  EXPECTED  TOUR  LENGTH  FOR  AN  E7.  IN  MONTHS - "E7T 

1 2630  OR  I  NT  "K--EN"ER  THE  EXPECTED  MONTHLY  PERCENT  OF  ATTRITION  FOR  E7s "AR77 

12040  AR7-AR77«.01 

12660  PRINT  “L— ENTER  THE  EXPECTED  MONTHLY  PROMOTION  X  OF  E7s  TC  EB - "E7PP 

12860  E7P«E?PP* . 0 1 
12870  PR  I  NT i PR  I  NT 

1208C  PRINT  “WHEN  YOU  HAVE  FINISHED  MAKING  THE  CHANGES  TYPE  IN  AN  *  X 
12890  P9- I  MPUT'3<  1  ) 

12900  PRINTilF  SE5>0  THEN  INS-"Y“ 

12910  IF  P9“ "X "  OR  P9»"X"  THEN  13210 

12920  IF  P9“ “ A"  OR  P9-“«“  THEN  13060 

12930  IF  Pw«"8"  OR  P9-"t>"  THEN  13070 

12940  IF  P«.“C"  OR  P9o"C"  THEN  13000 

12960  IF  P9" "D"  OR  P9«“d"  THEN  13090 

12960  IF  P9-“E"  OR  P9-“9“  THEN  13110 

12970  IF  P9« “F "  OR  P9-"f“  THEN  13120 

12980  IF  P9«"G"  OR  P9-“g"  THEN  13130 

12990  IF  P 9 « “ H “  OR  P*»"h"  THEN  13140 

13000  IF  P9«“  I  11  OR  P9-“i"  THEN  13160 

13010  IF  P9« “ J "  OR  P9«"j"  THEN  13170 

13020  IF  P9-“K"  OR  P9""k“  THEN  13100 

13030  IF  P9-"L"  OR  PS»"I“  THEN  13190 

13040  IF  P4 > "L "  OR  P9>" I"  THEN  12670 

13060  IF  P 9 > " "  THEN  12670 

13060  INPUT  “ENTER  THE  NUMBER  OF  AUTHORIZED  E5s" : SE3 :GOTO  12670 

13070  INPUT  “ENTER  EXPECTED  TOUR  LENGTH  FOR  AN  E5 .  IN  MONTHS" ; E5T : GOTO  1 2670 

13000  INPUT  "ENTER  THE  EXPECTED  MONTHLY  X  OF  ATTRITION  FOR  ESs " i AR 56 s GOTO  12670 

13090  INPUT  “CNTER  THE  EXPECTED  MONTHLY  PROMOTION  X  OF  EBs  TO  £6“  ;E5PP 

13100  GOTO  12670 

13110  INPUT  "ENTER  THE  NUMBER  OF  AUTHORIZED  E6s“ ; SE6 : GOTO  12670 

13120  INPUT  "ENTER  EXPECTED  TOUR  LENGTH  FOR  AN  E6,  IN  MONTHS" ; E6T i GOTO  12670 

13130  INPUT  “ENTER  THE  EXPECTED  MONTHLY  X  OF  ATTRITION  FOR  E6S " i AH66 t GOTO  12670 

13140  INPUT  “ENTER  THE  EXPECTED  MONTHLY  PROMOTION  X  OF  E6s  VC  E7“iE6PP 

13150  GOTO  12670 

13160  INPUT  "ENTER  THE  NUMSER  OF  AUTHORIZED  E7 s “ ; SE7 ! GOTO  12670 

13170  INPUT  “ENTER  EXPECTED  TOUR  LENGTH  FOR  AN  E7,  IN  MONTHS E7T : GOTO  12670 

13180  INPUT  "ENTER  THE  EXPECTED  MONTHLY  X  OF  ATTRITION  FOR  E7s “ : AR77 : GOTO  12670 

13190  INPUT  "ENTER  THE  EXPECTED  MONTHLY  PROMOTION  X  OF  E7s  TO  E8“ ;E7PP 

13200  GOTO  12670 
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13210  CLStPRINT  “NCO  DATA  ********«*****»•*******************" 

13220  PRINT 

13230  PRINT  “M— ENTER  THE  EXPECTED  PERCENTAGE  OF  NCOS  THAT  WILL  CHOOSE  AN" 

13240  PRINT  "  ALL  OTHERS  TOUR  RATHER  THAN  AN  ACCOMPANIED  TOUR - "AOTT 

13260  AOT  -  AOTT* . 0 1 

13260  PRINT  “N — ENTER  THE  LENGTH  OF  AN  ALL  OTHERS  TOUR - "LOT 

13270  PRINT  "O— ENTER  THE  EXPECTED  PERCENT  OF  INITIAL  NCO  F ( LL-- "NFF i NF -NFF* . 0 1 
1 3280  SSE6-CINT<SEB*NF) i SSE6-C I NT< SE6*NF 5  :SSE?»CI NT<SE7«NF> 

13290  SEBO*C I  NT < AOT*SSE61 
13300  SEBA-SSEB-SEBO 
133 1C  SE60«C I NT< AOT*S8£6 1 
13320  SE6A*SSE6-SE60 
13330  SE70»CINT(A0T*SSE7> 

13340  S£7A«SSE7-SE70 

13360  PRINT  "ENTER  THE  EXPECTED  PERCENT  OF  FILL  FOR  NCOS  DURING  THE  UNIT'S  " 
13360  PRINT  "LIFETIME  FOR i " 

13370  PRINT  »  P—  fcEo  EBFF « EBF-EEFF* . 0 1 

13380  PRINT  "  Q —  E6S  — "E6FF iE6F-E6FF*.01 

13390  PRINT  "  R— -  E?B  -- “  E7FF  i  E7F-E7FF*  .  0  1 

13400  PRINT  “ENTER  THE  PERCENTAGE  OF  EXPECTED  EXTENSIONS  AND  REUPS  FOR  PDA" 
13410  PRINT  "AND  THE  AVERAGE  EXTENSION  LENGTH  IN  MONTHS  OF  THE  TOUR  FOR i " 

13420  PRINT  “  3 — ENTER  THE  EXPECTED  PERCENT  OF  NCO  EXTENSIONS - “ NREE 

13430  PRINT  “  T— ENTER  THE  AVERAGE  LENGTH  IN  MONTHS - " NAE 

13440  NRE-NREE* . 0 1 

13460  PPINT  “U— ENTER  THE  INTERVAL  FOR  NCO  REPLACEMENTS,  IN  MONTHS " NRP 

13460  PRINT  “V — ENTER  THE  MONTH  TO  START  NCO  REPLACEMENTS “ NRT 

13470  PR  I  NT i PR  I  NT 

1 3480  PRINT  "WHEN  YOU  HAVE  FINISHED  MAKING  THE  CHANGES  TYPE  IN  AN  «  X 
13490  P9-INPUT9C1) 

13600  PR 'NT 

13610  IF  P9 n " X"  OR  P9-"x“  THEN  13850 

13620  IF  P9-"M"  OR  P9«"m"  THEN  13660 

13630  IF  P9«"N"  OR  P9«"n“  THEN  13680 

13640  IF  P9«"0"  OR  P9»“0"  THEN  13700 

13860  IF  P9«"P"  OR  P9»"p"  THEN  13720 

13660  IF  P9-"Q"  OR  P9«"q"  THEN  137B0 

13670  IF  P9»"R"  OR  P9-"T"  THEN  13780 

13680  IF  P9-"S"  OR  P9“ " 9 "  THEN  13S10 

13690  IF  P 9 * " T "  OR  P9»"t"  THEN  13820 

13600  IF  P9“ " U"  OR  P9-"u"  THEN  13830 

13610  IF  P9»"V"  OR  P9»"v"  THEN  13840 

13620  IF  P9>"V"  OR  P9 > " V"  THEN  13210 

13630  IF  P9 < “M"  OR  P9<“m“  THEN  13210 

13640  IF  P9-""  THEN  13210 

13660  PRINT  "ENTER  THE  EXPECTED  PERCENTAGE  OF  NCOS  THAT  WILL  CHOOSE  AN” 

13660  INPUT  "ALL  OTHERS  TOUR  RATHER  THAN  AN  ACCOMPANIED  TOUR - " i AOTT 

13670  GOTO  13210 

13600  INPUT  "ENTER  THE  LENGTH  OF  AN  ALL  OTHERS  TOUR - “ ; LOT 

13690  GOTO  13210 

13700  INPUT  "ENTER  THE  EXPECTED  PERCENT  OF  INITIAL  NCO  FILL"! NFF 
13710  GOTO  13210 

13720  PRINT  "ENTER  THE  EXPECTED  PERCENT  OF  FILL.  FOR  NCOS  DURING  THE  UNIT'S  " 
13730  PRiNT  "LIFETIME  FOR :  ’ 

13740  INPUT  "  E5s  “  j  E5FF  .  ESF  -E5FF*  .  0 1  i  GOTO  13210 

13750  PRINT  "ENTEn  THE  EXPECTED  PERCENT  OF  FILL  FOR  NCOS  DURING  THE  UNIT'S  " 
13760  PRINT  "LIFETIME  FOR t " 

13770  INPUT  "  E6S  “ ; E6FF : E6F « E6FF* . 0  1  . GOTO  13210 

13700  PRINT  " ENTCR  THE  EXPECTED  PERCENT  OF  FILL  FOR  NCOS  DURING  THE  UNIT'S  " 
13790  PRINT  "LIFETIME  FOR:" 

13800  INPUT  "  E?s  " : E7FF : E7F  »E7FF* .01: GOTO  13210 
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13810  INPUT  "ENTER  THE  EXPECTED  PERCENT  OF  NCO  EXTENS IONS" I NREE I  GOTO  13210 
13020  INPUT  "ENTER  THE  AVERAGE  LENGTH  IN  MONTHS" t NAE i GOTO  13210 

13030  INPUT  "ENTER  THE  INTERVAL  FOR  NCO  REPLACEMENTS,  IN  MONTHS'*  ! NRP t GOTO  13210 
13840  INPUT  "ENTER  THE  MONTH  TO  START  NCO  REPLACEMENTS" t NRTiGOTO  13210 
13060  IF  IN9-"n"  OR  IN9-"N“  THEN  13860  ELSE  CL8UF  NRP-0  GOTO  13S30 
13860  CLS i LOCATE  10,10 

13870  IF  F9«"N“  OR  F9«"n"  OR  F9«"M  GOTO  13900 

13880  PRINT  “CURRENT  UNIT  FILE  THAT  HAS  BEEN  I NPUTED  19  “FF9“-“ 

13090  GOTO  13930 

13900  PRINT  “DO  VOU  WANT  TO  INPUT  A  FILE  FOR  A  UNIT.-ay*  FOR  YES  »N»  FOR  NO." 
13910  CCH9- INPUT9C 1 > i IF  CCH9-"Y"  OR  CCH9-“y“  THEN  f 9-"V-  tPOTO  14030 
13920  IF  CCH9-"N“  OR  CCH9«“n"  THEN  14000  ELSE  13860 
13930  LOCATE  16,18 

13940  PRINT  "ENTER  »  Y  «  TO  USE  TH I S  F I LE  OR  ■  N  *  TO  CHANGE/DELETE  THE  FILE." 
13960  CH*-INPUT*<1 J i IF  CH9«"Y"  OR  CH9»“y"  GOTO  14180 
13960  IF  CH9»"N"  OR  CH9-"n"  THEN  13970  ELSE  13860 

13970  CLS i PR  I  NT  "ENTER  ■  Y  ■  TO  INPUT  A  NEW  F I LE  OR  •  N  ■  FOR  NO  FILE." 

13980  F 1 9* I NPUT9<  1  ) 

13990  IF  F19»“n"  OR  F19«"N“  THEN  14000  ELSE  14020 
14000  F9«“N" 

14010  GOTO  14060 

14020  IF  F19-"Y"  OR  F19-"y"  THEN  14030  ELSE  13970 

14030  PR  I NTi PR  I NTt LINE  INPUT  “ENTER  THE  NAME  OF  THE  NEW  UNIT  INPUT  FILE  “jrF9 
14040  IF  FF?-“"  THEN  BEEP  I  GOTO  14030 
14060  F9«"V" 

14060  IF  F9-“N"  THEN  RT-12  ELSE  RT-0 

14070  IF  CF9-”n"  OR  CF9«“N“  THEN  GOSUB  15780  ELSE  14090 
14080  CF9« " e" I  GOTO  14  180 
14090  CLS i LOCATE  10,10 

14100  PRINT  "THE  EXISTING  FILE  IS  "DF9  DO  YOU  WANT  TO  SAVE  ANY  CHANGES  " • 
14110  PRINT  "TO  A  NEW  FILE  7“ 

14120  LOCATE  IS.IBi PR  I  NT  "ENTER  «S«  TO  SAVE  OR  »G»  TO  CONTINUE." 

14130  bS0-INPUT9C1 > i IF  SS9«"C"  OR  SSa«"C"  THEN  14180  ELSE  14140 

14140  IF  S89-'*S"  OR  SS9" " 3 “  THEN  14150  ELSE  14090 

14150  CLS i LOCATE  IO.IOiLINE  INPUT  "ENTER  THE  NEW  FILE  NAME  "!0F9 

14160  IF  DF9«“"  GOTO  14150 

14170  GOSUB  15780 

14180  CLS: LOCATE  10,10 

14190  PRINT  “PRINTING  INPUT  DATA,  PLEASE  STAND  SY . " 

14200  LPRINT  DATE 9 , T I ME 9 
14210  LPRINT 

14220  LPRINT  "USAEUR  -  "U09 

14230  LPRINT  "■*««««" 

14240  LPRINT 

14250  LPRINT  “THE  OUTPUT  WAS  DERIVED  FROM  THE  INPUT  DATA  LISTED  BELOW." 

14260  LPRINT 

14270  IF  F4»“n"  OR  F4-"N"  GOTO  14390 

14280  LPRINT  "CURRENT  UNIT  FILE  THAT  HAS  BEEN  I NPUTED  IS  "FF9“." 


14290  OPEN  " I " , #1 , FF* 

14300  I NPUT  91 .FT 
14310  I NPUT  #1 ,F5 
14320  INPUT  #1 ,F6 
14330  I NPUT  91 , F7 

14340  LPRINT  "  UNIT  PROFILE  IS -  El  -  E4  —  "FT 

1 4350  LPRINT  "  E5S  --  "F5 
14360  LPRINT  "  E6s,  --  “F6 
14370  LPRINT  "  E7S  --  "F7 
14380  LPRINT 


14390  LPRINT  " A--TOTAL  1ST  TERMERS  IN  THE  UNIT -  "CP 

14400  LPRINT  "  EXPECTED  PERCENT  OF  FILL--  "EF 
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14410 
14420 
14430 
14440 
14460 
14460 
14470 
14480 
14490 
14600 
14610 
14620 
14630 
14640 
14660 
14660 
14670 
14680 
14690 
14600 
14610 
14620 
14630 
14640 
14650 
14660 
14670 
14680 
14690 
14700 
14710 
14720 
14730 
14740 
14750 
14760 
14770 
14780 
14790 
14800 
14810 
14820 
14830 
14840 
1  4850 
14860 
14870 
14880 
14890 
14900 
14910 
14920 
14930 
14940 
14950 
14960 
14970 
14900 
14990 
15000 


LPRINT 
LPRINT 
LPR I  NT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPR I  NT 
LPRINT 
LPR I  NT 
LPflINT 
LPRINT 
LPR I  NT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
IF  SN9 
LPRINT" 


—  "CA 
--“CCA 

Y4 


”6  — EXPECTED  PERCENTAGE  OF  VEL  SOLDIERS - '  "VE 

“C--EXPECTED  LENGTH  OF  A  VEL  CONTRACT  IN  MONTHS -  "VT 

"0— THE  TOTAL  PERCENTAGE  OF  SOLD  I ER5  EXPECTED  FOR  JET— "JE 
"E— THE  PERCENTAGE  EXPECTED  FOR  3  YR  JET  ENL  I STMENTS—  'M33 
“  REMAINING  SOLDIERS  ARE  ASSUMED  TO  BE  4  YR  JET  ENL I STEES— “ J44 
“F— THE  TOUR  LENGTH  FOR  JET  SOLDIERS  IN  MONTHS  — -"JET 
“G- -THE  PERCENTAGE  OF  SOLDIERS  THAT  ARE  EXPECTED  TO" 

“  EXTEND  THEIR  ENLISTMENT  FOR  A  CONUS  ASSIGNMENT" 

“  JET  SOLDIERS  - 

'•  UNACCOMPANIED  SOLDIERS - 

“H— EXPECTED  PERCENTAGE  OF  3  YR  ENLISTMENTS -  “Y3 

“  REMAINING  SOLDIERS  ARE  ASSUMED  TO  BE  4  YR  ENLISTEES- 

"I --THE  TOUR  FOR  UNACCOMPANIED  SOLDIERS  IN  MONTHS - “ST 

“J— EXPECTED  TRAINING,  LEAVE  AND  TRAVEL  TIME  IN  MONTHS" 

“  THAT  A  SOLDIER  WILL  HAVE  BEFORE  ARRIVING  AT  HIS  UNIT— "TT 
"THE  PERCENTAGE  OF  EXPECTED  EXTENSIONS  AND  REUPS  FOR  PDA" 

"AND  THE  AVERAGE  EXTENSION  LENGTH  IN  MONTHS  OF  THE  TOUR  FORt" 

“  K — UNACCOMPANIED  1st  TERMERS - "REE 

"  L— THE  AVERAGE  LENGTH  IN  MONTHS - "AE 

“  M — JET  SOLDIERS - " JREE 

"  N— THE  AVERAGE  LENGTH  IN  MONTHS - "JAE 

"O — EXPECTED  PROMOTION  MONTH  TO  E5 -  "PT 

"P — EXPECTED  MONTHLY  PROMOTION  PERCENTAGE  TO  E5 -  "PPP 

"Q — THE  EXPECTED  MONTHLY  ATTRITION  RATE  IN  PERCENT - -  "ARR 

" R--THE  INTERVAL  FOR  1ST  TERMER  REPLACEMENTS,  IN  MONTHS -  "RP 

“S — THE  NUMBER  OF  MONTHS  SIMULATED- -  "MO 

“T--THE  NUMBER  OF  REPETITIONS -  "REPS 

"U — MONTHLY  LISTING  OF  UNIT  5TRENGTH —  "B9 
“V — BATTALION  TOTALS  FOR  REPLACEMENTS--  " BBN9 
-  "N"  OR  BN 9  «  “n"  THEN  14720 

COMPANIES  IN  THE  BATTALION  IS —  “COMP 


IF  IN9 
LPRINT 
LPRINT 
LPRINT 
LPR I  NT 
LPR I  NT 
LPRINT 
LPR I  NT 
LPRINT 
LPRINT 
LPRINT 
LPR I  NT 
LPR'NT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPR I  NT 
LPRINT 
LPR I  NT 
LPRINT 
LPRINT  " 
LPRINT  " 
NRE-NREE* . 0 1 


«"N"  OR  I N9-“n“  THEN  16030 


! LPR I  NT 


"NCO  DATA  »»«»««»»»»«*«»•*«•»•••*»»»»»*•««: 

"A— NUMBER  OF  AUTHORIZED  E5« - "SE5 

“S— THE  EXPECTED  TOUR  LENGTH  FOR  AN  E5 ,  IN  MONTHS - "E5T 

“C— EXPECTED  MONTHLY  PERCENT  OF  ATTRITION  FOR  E5s - "AR56 

"D— THE  EXPECTED  MONTHLY  PROMOTION  PERCENTAGE  OF  E5s  TO  E6—  "E5PP 
"£— NUMBER  OF  AUTHORIZED  E6s - "  SE6 

“ F — THE  EXPECTED  TOUR  LENGTH  FOR  AN  E6,  IN  MONTHS— -"E6T 

"G--EXPECTED  MONTHLY  PERCENT  OF  ATTRITION  FOR  E6s - "AR66 

“H — THE  EXPECTED  MONTHLY  PROMOTION  PERCENTAGE  OF  E6s  TO  E7 - "E6PP 

“I — NUMBER  OF  AUTHORIZED  E7s - " SE7 

" J--THE  EXPECTED  TOUR  LENGTH  FOR  AN  D,  IN  MONTHS - " E7T 

"K — EXPECTED  MONTHLY  PERCENT  OF  ATTRITION  FOR  E7s - “AR77 

“L — THE  EXPECTED  MONTHLY  PROMOTION  PERCENTAGE  OF  E?s  TO  E8 - "E7PP 

"M — THE  EXPECTED  PERCENTAGE  OF  NC05  THAT  WILL  CHOOSE  AN" 

"  ALL  OTHERS  TOUR  RATHER  THAN  AN  ACCOMPANIED  TOUR - " AOTT 

"N — THE  LENGTH  OF  AN  ALL  OTHERS  TOUR' - “LOT 

"O — THE  EXPECTED  PERCENT  OF  INITIAL  NCO  FILL--  "NFF 

"THE  EXPECTED  PERCENT  OF  FILL  FOR  NCOS  DURING  THE  UNIT’S  " 

"LIFETIME  FOR-." 

"  P--  ESs  — "E5FF 

Q—  ESs  — "E6FF 
“  R--  E7s  — "E7FF 

PERCENTAGE  CF  EXPECTED  EXTENSIONS  AND  REUPS  FOR  PDA" 

THE  AVERAGE  EXTENSION  LENGTH  IN  MONTHS  OF  THE  TOUR  FOR > " 
S--THE  EXPECTED  PERCENT  OF  NCO  EXTENSIONS--  " NREE 
AVERAGE  LENGTH  IN  MONTHS —  "NAE 


"THE 
"A  NO 


T  —  THE 
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16010  LPRINT  “U— THE  INTERVAL  FOR  NCO  REPLACEMENTS,  IN  MONTHS - " NRP 

16020  LPRINT  “V— THE  MONTH  TO  START  NCO  REPLACEMENTS - " NRT 

16030  LPRINT  UHR*< 12) 

16040  IF  CF4-"N"  OR  CF*-“n“  THEN  OOSUB  16780  ELSE  16060 

16060  LPRINT  SPC  < 1 0 ) “ COMPANY  FIRST  TERMER  COHORT  REPLACEMENT  PACKAGES" 

16060  LPRINT  SPC<  10)  " - - - " 

16070  LPRINT 

16080  LPRINT  AVG  90*  CONFIDENCE  INTERVAL" 

16090  LPR I NT“MQNTH  PKG  SIZE  LOWER  BOUNDS  UPPER  BOUNDS  STD  DEV" i 

16100  LPRINT  “  *  UNIT  STR" 

16110  LPRINT 

16120  ERASE  PQR , STAT ,MON , E6 , E7 , E68 , E68 , E7S , STB , ST6 , ST7 
16130  REM  ERASE  STAT .MON , E63 , E6S , E7S , STS . ST6 . ST7 
16140  GOTO  2330 
16150  LOCATE  6 , 5 i BEEP 
16160  CLS 

16170  PRINT  "ARE  VOU  SURE  7777?????" 

16180  LOCATE  10,10 

16190  PRINT  "YOU  WILL  HAVE  TO  INPUT  ALL  NEW  DATA  TO  START  AGAIN." 

16200  PRINT 

16210  PRINT  “IF  YOU  STILL  WISH  TO  END  THE  SESS I  ON , PRESS  **  Y  «».“ 

1 5220  PRINT 

15230  PRINT  "IF  YOU  WISH  TO  CONTINUE.  PRESS  »»  N  ««." 

16240  DO- I  NPUT9<  1  )  I  I  F  D9-"N"  OR  D6«“n“  THEN  10930 
16260  IF  09* “y“  OR  D9-"Y"  THEN  S2B0  ELSE  15150 
16260  OPEN  “ I " .42.DF9 
15270  INPUT  42, CP 
16280  INPUT  #2 , EF 
16290  INPUT  42.  VE 
16300  INPUT  #2 , VT 
15310  INPUT  42, JE 
15320  INPUT  62 , J33 
16330  INPUT  #2, JET 
15340  INPUT  42, CA 
16350  INPUT  42, CCA 
16360  INPUT  42, Y3 
*  15370  INPUT  42, ST 
16380  INPUT  42. TT 
16390  INPUT  42, REE 
15400  INPUT  42. AE 
15410  INPUT  42.JREE 
15420  INPUT  42.JAE 
15430  INPUT  42, PT 
1 6440  INPUT  42.PPP 
15450  INPUT  42.ARR 
15460  INPUT  42. RP 
15470  INPUT  42, MO 
16480  INPUT  42, REPS 
1 6490  INPUT  42,  A9 
15500  INPUT  42.8N9 
15510  INPUT  42, COMP 
15620  I NPUT  42, I N9 
1 5630  INPUT  42.SE5 
15640  INPUT  42.E5T 
15560  INPUT  42, ARBS 
16560  INPUT  42.E5PP 
15670  INPUT  42.SE6 
15580  INPUT  42 , E6T 
15690  INPUT  42  ,  AR66 
15600  INPUT  42.E6PP 
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13610  INPUT  42,SE7 
13620  INPUT  42.E7T 
13630  INPUT  4  2 , AR  7  7 
13640  INPUT  42.I7PP 
13630  INPUT  • 2 , AOTT 
13660  INPUT  #2, LOT 
13670  INPUT  42.NFF 
13660  INPUT  #2 , E3FF 
13690  INPUT  42.E6FF 
13700  INPUT  #2 , E7FF 
13710  INPUT  42.NREE 
13720  INPUT  *2 , NAE 
13730  INPUT  4  2 , NHP 
13740  INPUT  f  2 , NRT 
13730  INPUT  62, MT 
13760  CLOSE 
13770  RETURN 

13730  OPEN  DPI  FOR  OUTPUT  AS  #2 

13790  PHINT  *2, CP 

13800  PHINT  42, EF 

13810  PRINT  • 2  j  VE 

13820  PHINT  4  2,VT 

13830  PRINT  42, JE 

13840  PHINT  42 , J33 

13830  PRINT  42, JET 

13860  PHINT  42, CA 

13870  PRINT  42, CCA 

13880  PHINT  42, Y3 

13890  PRINT  42, ST 

13900  PRINT  42, TT 

1391.0  PRINT  42, BEE 

13920  PHINT  42, AE 

13930  PRINT  4  2 , JREE 

13940  PHINT  42 , JAE 

13  930  PRINT  4  2 , PT 

13960  PRINT  42.PPP 

13970  PRINT  4  2 , ARH 

13980  PRINT  42, RP 

13  9  9  0  PRINT  4  2 , MO 

16000  PRINT  42, REPS 

16010  PHINT  42. A* 

16020  PRINT  4  2 , BN  4 
16030  PHINT  42, COMP 
1 6040  PRINT  42 , INi 
16030  PRINT  42.SE3 
16060  PRINT  42.E3T 
16070  PHINT  42.AE35 
16080  PRINT  42.E3PP 
16090  PRINT  42 , SE6 
16100  PRINT  42.E6T 
16110  PRINT  42.AR66 
16120  PRINT  42.E6PP 
16130  PRINT  4  2 , SE7 
16140  PRINT  42 , E7T 
16130  PRINT  42.AR77 
16180  PRINT  42.E7PP 
16170  PRINT  42, AOTT 
16180  PRINT  42, LOT 
16190  PRINT  42.NFF 
16200  PRINT  42.E3FF 
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16210  PRINT  4  2 , E6FF 
16220  PRINT  *2,ETFP 
16230  PRINT  • 2 , NREE 
16240  PRINT  • 2 , NAE 
16230  PRINT  *2 , NHP 
16260  PRINT  1 2 , NRT 
16270  PRINT  #2,MT 
16280  CLOSE 
16290  RETURN 
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GLOSSARY 

1.  ABBREVIATIONS,  ACRONYMS,  AND  SHORT  TERMS 


C-REM 

COHORT  Replacement  Model 

ETS 

expiration  term  of  service 

IET 

initial  entry  training 

IRS 

Individual  Replacement  System 

JET 

Junior  Enlistment  Trainee 

MILPERCEN 

Military  Personnel  Center 

NMS 

New  Manning  System 

PCS 

permanent  change  of  station 

PDA 

present  duty  assignment 

PFAM 

Personnel  Flow  Assessment  Model 

PRI 

personnel  readiness  indicator(s) 

TOS 

time  on  station 

UMS 

Unit  Manning  System 

URSA 

Unit  Replacement  System  Analysis 

VEL 

variable  enlistment  length 

2.  DEFINITIONS 

all-others  For  purposes  of  this  study,  an  OCONUS  long-tour 

tour  assignment  served  by  SM  with  dependents  who  chose 

not  to  be  accompanied  by  his/her  dependents.  The 
all-others  tour  length  is  24  months. 

careerist  An  enlisted  soldier  who  has  continuous  service 

beyond  his  initial  enlistment  period  resulting  from 
one  or  more  reenlistments. 

COHORT  An  acronym  for  cohesion,  operational  readiness,  and 

training.  Describes  a  management  concept  in  which 
soldiers  and  leaders  are  assigned  to,  and 
stabilized  within,  battalion  or  company-sized 
combat  arms  units  for  fixed  periods  of  time. 
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COHORT 

package 

COHORT 

unit 


COHORT  unit 
life  cycle 


f Irst-termer 


Individual 
Replacement 
System  (IRS) 


long  tour 

regiment 

regimental 

system 

short  tour 

steady  state 

turnover  rate 


A  group  of  f irst-termers  trained  together  in  IET 
and  assigned  to  a  COHORT  unit. 

A  combat  arms  unit  (company/battery  or  battalion) 
composed  of  COHORT  packages  and  careerists  who  will 
be  stabilized  for  a  fixed  life  cycle  of  the  unit. 
The  unit  trains  together  and  usually  will  deploy 
overseas  at  a  fixed  time  in  the  unit  life  cycle. 

The  duration  of  time  a  COHORT  unit  exists  for 
stabilization  and  retention  of  its  personnel; 
usually  consists  of  a  CONUS  and  an  OCONUS  phase. 

Those  soldiers  who  have  not  yet  completed  their 
first  enlistment  period.  In  PFAM,  an  enlisted 
soldier  serving  in  grade  E3  or  E4. 

The  personnel  management  system  currently  used  to 
fill  Army-wide  requirements,  defined  at  the  grade 
and  MOS  level  of  detail,  by  individually  selecting 
soldiers  from  the  Army  at  large  to  fill  personnel 
vacancies  on  a  singular  basis,  i.e.,  one  soldier 
leaves  an  assignment  and  is  replaced  by  another 
soldier. 

For  purposes  of  this  study,  an  assignment  to  an 
OCONUS  theater  for  which  the  standard  tour  length 
is  36  months  for  SM  accompanied  by  their  dependents 
and  for  single  SM.  The  tour  length  is  24  months 
for  all  others. 

A  grouping  of  like-type  CONUS  and  OCONUS  battalions 
with  the  same  regimental  designation  formed  for  the 
purpose  of  allowing  recurring  assignments  over  the 
length  of  a  soldier's  career. 

An  Army-wide  system  under  which  the  battalions  of 
each  combat  arms  branch  are  organized  into 
regiments. 

For  purposes  of  this  study,  an  assignment  to  an 
OCONUS  theater  for  which  the  standard  tour  length 
is  12  months  for  all  5M. 

The  eventual  condition  which  occurs,  and  can  be 
sustained,  after  the  start-up  or  transition  phase 
is  complete. 

As  defined  in  AR  220-1,  the  sum  of  a  unit's  last  3 
months'  losses  divided  by  its  current  operating 
strength. 
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